my @graphemes = $text =~ /\X/g; my $count = () = $text =~ /\X/g; #### my $size = Unicode::GCString->new($text)->columns();