Select Code to Download

#! perl -slw
use strict;
...
    stuff( unpack 'vccc', join'',map{ pack'b*', $_ } unpack 'a14a6a6a6
+', unpack 'B32', pack 'N', $_ );
}
printf "(un)pack  took: %.12f seconds\n", ( time() - $start ) / $ITERS
+;

C:\test>1021064
Shift&and took: 0.000000606833 seconds
  Lookup  took: 0.000000485629 seconds
  Lookup2 took: 0.000000669586 seconds
(un)pack  took: 0.000007564075 seconds