#!/usr/bin/env perl -l

use strict;
use warnings;

while (<STDIN>) {
    chomp;

    if (/^(\d{2})-(\d{2})-(\d{4})$/) {
        print "... day='$1' month='$2' year='$3' ...";
    }
    else {
        print 'Not DD-MM-YYYY format';
    }
}

##</code><code>##

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

##</code><code>##

#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;

while (<STDIN>) {
    chomp;

    if (/^(\d{2})-(\d{2})-(\d{4})$/) {
        my ($day, $month, $year) = ($1, $2, $3);

        my $tp = eval { Time::Piece->strptime("$day$month$year", '%d%m%Y') };

        if (defined $tp) {
            if ($tp->ymd eq "$year-$month-$day") {
                print "... day='$day' month='$month' year='$year' ...";
            }
            else {
                print "INVALID DATE: $day-$month-$year";
            }
        }
        else {
            print "BOGUS DATE: $day-$month-$year";
        }
    }
    else {
        print 'Not DD-MM-YYYY format';
    }
}

##</code><code>##

$ pm_parse_stdin_2.pl
19-9-2013
Not DD-MM-YYYY format
19/09/2013
Not DD-MM-YYYY format
19-09-2013
... day='19' month='09' year='2013' ...
99-99-9999
BOGUS DATE: 99-99-9999
32-02-2013
BOGUS DATE: 32-02-2013
31-02-2013
INVALID DATE: 31-02-2013
29-02-2013
INVALID DATE: 29-02-2013
29-02-2012
... day='29' month='02' year='2012' ...
19-09-20133
Not DD-MM-YYYY format