Count characters of a string in Perl 5
length function returns the number of code points when called on a
character string (instead of a byte string).
$count = length $str;
There is no core function to count the number of grapheme clusters; however, either of the following examples will perform the task.
$count = () = $str =~ /\X/g; $count++ while $str =~ /\X/g;
The CPAN module Unicode::GCString can also be used on character strings.
use Unicode::GCString; $count = Unicode::GCString->new($str)->length;
As well as the CPAN module Unicode::Util.
use Unicode::Util qw( grapheme_length ); $count = grapheme_length($str);