my $date = "10/13/2006";
my ($m,$d,$y)=split m(/), $date;
$date=join '/', (map sprintf('%02d', $_), $m, $d), $y;