Select Code to Download

unpack 'vccc', join'',map{ pack'b*', $_ } unpack 'a14a6a6a6', unpack '
+B32', pack 'N', $n;

#! perl -slw
use strict;
...
  Lookup2 took: 0.000000547556 seconds
(un)pack  took: 0.000005933478 seconds