in reply to elements not reversing inside a map

And then to finally get "filename:ext", you'll need yet another reverse: 
 perl -le '$,=":";print reverse map scalar(reverse), split( /\./, (rev
+erse "filename.ext"), 2)'

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom