#!/usr/bin/perl -w

my $oldDate = '2003-08-01';
my $YY = substr($oldDate, 2, 2);
my $MM = substr($oldDate, 5, 2);
my $DD = substr($oldDate, 8, 2);
my $newDate = $MM . $DD . $YY;