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