in reply to Re^41: Interleaving bytes in a string quicklyin thread Interleaving bytes in a string quickly
$a = join '', map ord, 65536, 65, 2**32, 65, 2**48, 65;; print length $a;; 12 [download]