my $u = "a\xC4\x{107}\x{1C4}" ;

  my @u = unpack('C*', $u) ;
  show(@u) ;                  # 0x61, 0xC4, 0x107, 0x1C4
  bytes(pack('C*',@u)) ;      # Character in 'C' format wrapped in pack ...
                              # Character in 'C' format wrapped in pack ...
                              # 61:C4:07:C4 -- byte

  sub show {
    print join(", ", map(sprintf("0x%02X", $_), @_)), "\n" ;
  } ;

  sub bytes {
    my ($s) = @_ ;
    my $w = utf8::is_utf8($s) ? "utf8" : "byte" ;
    use bytes ;
    print join(":", map(sprintf("%02X", $_), unpack('C*', $s))), " -- $w\n" ;
  } ;