Help for this page

Select Code to Download


  1. or download this
    $CX = '@l658072wq';
    print map({reset;
    ?[];\n    vec ( join( keys %_ ), 5, 8 );\n  } readpipe *CX;\n  2;\n  ]
    +? ? chr $_ : (/l/ ? chr ord($_ | $/) : chr length $^T);} unpack('a2' 
    +x 5, $CX));
    
  2. or download this
    $CX = '@l658072wq';
    print map( {
    ...
                         : "\n" );
               } unpack( 'a2' x 5, $CX )
             );
    
  3. or download this
    $/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
    + sig
    map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
    +" );