perl -we 'use Unicode::GCString;use Unicode::Normalize;$t="Hütte";print length("$t");$g=Unicode::GCString->new("$t");print $g->columns'
66

##</code><code>##

perl -we 'use utf8;use Unicode::GCString;use Unicode::Normalize;$t="Hütte";print length("$t");$g=Unicode::GCString->new("$t");print $g->columns'
55