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