Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
"for my $s (qw(15556667777  3334445555  999999999  88888888  121212121
+212)) {
...
'999999999' -> invalid number
'88888888' -> invalid number
'121212121212' -> invalid number
  2. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
"my $rx_npa  = qr{ [2-9] (?! 11) \d\d }xms;
...
'15119999999' -> no number
'9995119999' -> no number
'19995119999' -> no number