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