buchstaben zählen:
my $count = $string =~ tr/a//;
strings zählen:
my $match = "gesucht";
my $count = () = $string =~ m/\Q$match/g;