Sure, and it cleans up a bit:

$date = join "/", map $_+0, split m[/], $date;

Not sure if I like the idea of stripping those zeroes though. Probably better to store the date in a saner format (Epoch seconds maybe?), then use POSIX::strftime() to generate the desired date format.