I certainly am...

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

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
Hütte's length: 6
[download]

That's how it looks like without codetags:

Hütte's length: 6