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