Lots of ideas. Have you tried anything yourself?

$date =~ s| (\d\d\d\d) (\d\d) (\d\d) |$3/$2/$1|x;
[download]