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