perl -le '$,=":";print reverse( "filename.ext" =~ /(.*)\.([^.]+)$/ )'