Help for this page

Select Code to Download


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