#!/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';
    }
}