my $date = '07/04/2001';
$date = join '/', map { $_+0 } split /\//, $date;
print $date;