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/'