Here goes, as an exercise call perldoc -f on each keyword: my $new = join '', reverse split /\//, $date;

This wasn't homework was it?

After Compline,
Zaxo