#!/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);