my @graphemes = $text =~ /\X/g; my $count = () = $text =~ /\X/g;