Select Code to Download

( $a, $b, $c, $d, $e, $f, $g, $h, $i, $j, $k, $l, $m )=
  map { unpack 'C', pack 'b*',$_ }
    unpack 'A3A2A2A1A4A2A1A1A2A2A1A1A2',
      unpack 'B*',$x;