bytes:  765432 10 7654 3210 76 543210
fields: 543210 54 3210 5432 10 543210
or
bytes:  012345 67 0123 4567 01 234567
fields: 012345 01 2345 0123 45 012345

##</code><code>##

my @fields=
     unpack "C*",    # 16 6-bit numeric values
     pack   "B6"x16, # string of 16 bytes, each  holding a 6-bit value
     unpack "a6"x16, # 16 6-character base-2  strings
     unpack "B*",    # 96-character base-2  string
     "twelve bytes"; # 12-byte packed string

my $string=
     pack   "B*",    # 12-byte packed string
     pack   "a6"x16, # 96-character base-2  string
     unpack "B6"x16, # 16 6-character base-2  strings
     pack   "C*",    # string of 16 bytes, each  holding a 6-bit value
     @fields;        # 16 6-bit numeric values