$ perl -C -wE 'use Unicode::GCString;use Unicode::Normalize;$t="Hütte"; say "\$t[$t]"; print length("$t"), "\n";$g=Unicode::GCString->new("$t"); say "\$g[$g]"; print $g->columns, "\n"; say $g->chars;'

##</code><code>##

$ perl -C -wE 'use utf8; use Unicode::GCString;use Unicode::Normalize;$t="Hütte"; say "\$t[$t]"; print length("$t"), "\n";$g=Unicode::GCString->new("$t"); say "\$g[$g]"; print $g->columns, "\n"; say $g->chars;'