my $s = "C2AB2061686120C2BB" ;

  for my $unp ('a*', 'U0a*', 'C0a*') {
    printf "unpack('$unp', pack('U0H*', $s)) -> '%s', %d/%d %s\n",
        raw(unpack( $unp,  pack('U0H*', $s))) ;
  } ;