#!/usr/bin/perl -w

while(<DATA>) {
    s/[^\d]+//g;
    print $_,$/;
}
__DATA__
800-800-1212
(800)800-1212
(800) 800-1212
800 800 1212