in reply to Re^41: Interleaving bytes in a string quicklyin thread Interleaving bytes in a string quickly
$a=''; $a.=chr 1<<$_ for 0 .. 63;; print ord unpack 'x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U]x[U] U1', $a;; 48 [download]