Help for this page

Select Code to Download


  1. or download this
    perl -le '$,=":";print map {$_=reverse $_} split( /\./, (reverse "file
+name.ext"), 2)'
  2. or download this
    perl -le '$,=":";print map {(reverse $_)||""} split( /\./, (reverse "f
+ilename.ext"), 2)'