Select Code to Download

  use strict ;
  use warnings ;
...

    return ($q, length($s), $b, utf8::is_utf8($s) ? 'utf8' : 'not utf8
+') ;
  } ;

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

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

  my $s = "C2AB2061686120C2BB" ;

...
    printf "unpack('$unp', pack('U0H*', $s)) -> '%s', %d/%d %s\n",
        raw(unpack( $unp,  pack('U0H*', $s))) ;
  } ;

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

  sub dehex {
    my ($s) = @_ ;
...
    return $s if utf8::valid($s) ;
    ... worry ...  return undef ??
  } ;