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