$ perl -we \
> 'print((split//,"\nechle etn sJutaohrPr akr")\
> [map{splice @_,@_/$^F,$^W}(@_=$%..$^F*$=/5)])'
Backslash found where operator expected at -e line 1, near ")\"
        (Missing operator before \?)
syntax error at -e line 1, near ")\"
Execution of -e aborted due to compilation errors.

##</code><code>##

#!/usr/bin/perl -w
print((split//,"\nechle etn sJutaohrPr akr")
 [map{splice @_,@_/$^F,$^W}(@_=$%..$^F*$=/5)])