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.
Same as davido and sk, but also strips a leading 1 from the number.
In Section
Seekers of Perl Wisdom
in reply to Numbers only in a string