while (<>)  # read one line at a time
{
    s/[a-z;:\@]+//gi;  # these aren't used for numbers
    s/(?<=\d\)) (?=\d)//g;   # remove space in "\d) \d"

# split the line on whitespace (that's why we got rid of
# any spaces that might be within a given phone number);
# for each thing coming out of the split, print it if it
# looks like a phone number:

    for my $num ( split /\s+/ ) {
        next unless ( $num =~ /\D*(\d{3})\D(\d{3})-(\d{4})\D*/ );
        print "$1-$2-$3\n";
    }
}