perl -le '$,=":";print reverse map scalar(reverse), split( /\./, (reverse "filename.ext"), 2)'