my $date = '07/04/2001';
$date = join '/', map int, split /\//, $date;