#!/usr/bin/perl
use v5.12;
use strict;
use utf8;
use Devel::Peek;

my $trema = "\N{COMBINING DIAERESIS}";
binmode *STDOUT, ':encoding(UTF-8)';
my $huette = "Hu${trema}tte";

Dump $huette;

say "$huette\'s length: ". length($huette);

##</code><code>##

SV = PV(0x25f4a58) at 0x25266b8
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x28da368 "Hu\314\210tte"\0 [UTF8 "Hu\x{308}tte"]
  CUR = 7
  LEN = 10
Hu&#776;tte's length: 6