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