Help for this page

Select Code to Download

Select or download this

    (xxx) yyy-zzzz
    +1 xxx yyy zzzz
    xxx-yyy-zzzz
    xxxyyyzzzz

Select or download this

    $conphone =~ tr/0-9//dc;  # remove non-digits
    if ($conphone =~ /^(\d{3})(\d{3})(\d{4})$/) {
...
    else {
        print "Bad phone! No cookie!\n";
    }