perl -le '$_="filename.ext"; s/^(.*)\.([^.]*)$/$2:$1/; print($_);'

##</code><code>##

perl -le '$_="filename.ext"; s/^(.*)\.([^.\s]*)$/$2:$1/; print($_);'