my $str = "aƤ" my @chrs = split(//,$str); my $noOfChrs = @chrs;