my $s = "C2AB2061686120C2BB" ; _utf8_on($s) ;

  for my $unp ('a*', 'U0a*', 'C0a*') {
    my ($q, $b, $l, $u) = raw(unpack($unp, pack('H*', $s))) ;
  print "unpack('$unp', pack('H*', \$s)) -> '$q', $l/$b $u\n" ;
} ;