Help for this page

Select Code to Download

Select or download this

chomp($value = <STDIN>);
if($value =~ /(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.] \d\d
+\d\d)/) {
...
    print $value;
    print "not a date";
}