sub length_in_grapheme_clusters {
    my $length;
    $length++ while $_[0] =~ m/\X/g;
    return $length;
}