c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
 ;;
 my $s =
   'Sent to 1402, 222-2222, 1304, 555.555.5555 and 501, 666 666 6666, 123-345.5678';
 ;;
 my $sep = qr{ [-. ] }xms;
 my $pn  = qr{ \d{3} ($sep) (?: \d{3} \1)? \d{4} }xms;
 my $an  = qr{ \d{3,4} }xms;
 ;;
 my @caps = $s =~ m{
   (?| $pn (*SKIP)(*F) | (?<! \d) ($an) (?! \d))
   }xmsg;
 ;;
 printf qq{'$_'  } for @caps;
"
'1402'  '1304'  '501'  '123'