$date = '07/04/2001';

# (e)valuate right side as an expression
# do a (g)lobal replace - ie all matches
$date =~ s/(\d+)/$1+0/ge;

print "$date\n";