Help for this page

Select Code to Download

Select or download this

perl -E '
    $R = qr/\d{2}[-._]\d{2}([-._]\d{2})*/;
    say "$_ ", /$R/ ? "Y" : "N" for qw/1-2 1-20 11.20-1 11.20 12_30.99
+ 000_00_000/'