Select Code to Download

$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));

$CX = '@l658072wq';
print map( {
...
                     : "\n" );
           } unpack( 'a2' x 5, $CX )
         );

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );