sub length_in_grapheme_clusters {
    my $length = () = $_[0] =~ /\X/g;
    return $length;
}