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