http://qs321.pair.com?node_id=490249


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.