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


##</code><code>##

$CX = '@l658072wq';
print map( {
             reset;
             ?[];
               vec ( join( keys %_ ), 5, 8 );
               }
               readpipe *CX;
               2;
             ]? ? chr $_
             : ( /l/ ? chr ord( $_ | $/ )
                     : "\n" );
           } unpack( 'a2' x 5, $CX )
         );


##</code><code>##

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