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