$T =
      vec( pack( 'C', $i ), 0, 4 ) + vec( pack( 'b*', $_{65} ), $_, 1 ) * 16 +
      32;
# print $T;
# 42 53 51 52 32 33 46 47 52 40 37 50 32 48 37 50 44 32 40 33 35 43 37 50
# 0  1  1  1  0  0  0  0  1  0  0  1  0  1  0  1  0  0  0  0  0  0  0  1
# J  u  s  t     a  n  o  t  h  e  r     P  e  r  l     h  a  c  k  e  r
# *  1  2  3  4  5  6  7  8  9  10 11 12 *  1  2  3  4  5  6  7  8  9  10