> perl -le '$,=":";print reverse split /\./, "filename.ext", 2'
ext:filename

##</code><code>##

perl -le '$,=":";print reverse( "filename.ext" =~ /(.*)\.([^.]+)$/ )'