in reply to Numbers only in a string

$phone =~ s/\D|^1//g;

Same as davido and sk, but also strips a leading 1 from the number.

In Section Seekers of Perl Wisdom