perl -le '$,=":";print map {$_=reverse $_} split( /\./, (reverse "filename.ext"), 2)'

##</code><code>##

perl -le '$,=":";print map {(reverse $_)||""} split( /\./, (reverse "filename.ext"), 2)'