Select Code to Download

my @fields=
     unpack "C*",    # 16 6-bit numeric values
...
     pack   "C*",    # string of 16 bytes, each holding a 6-bit value
     @fields;        # 16 6-bit numeric values
print "($string)\n";

(29 7 29 37 27 7 25 37 8 6 9 57 29 6 21 51)
(twelve bytes)