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