Just for grins you could also use substr:

my $DDMMYYYY = '16/06/2003';
my $YYYYMMDD = substr($DDMMYYYY, 6, 4) .
               substr($DDMMYYYY, 3, 2) . 
               substr($DDMMYYYY, 0, 2);
[download]