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