Select Code to Download

#!/usr/bin/env perl -l

...
        print 'Not DD-MM-YYYY format';
    }
}

$ pm_parse_stdin.pl
19-9-2013
...
... day='19' month='09' year='2013' ...
19-09-20133
Not DD-MM-YYYY format

#!/usr/bin/env perl -l

...
        print 'Not DD-MM-YYYY format';
    }
}

$ pm_parse_stdin_2.pl
19-9-2013
...
... day='29' month='02' year='2012' ...
19-09-20133
Not DD-MM-YYYY format