#!/usr/bin/perl -w

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

##</code><code>##

__END__
8008001212
8008001212
8008001212
8008001212