@count=$string=~m/apple/g;
... , scalar @count, ...
[download]

You can get the count directly using this construct.

$ perl -E '
> $str = q{I like apples, pears and pineapples};
> $count = () = $str =~ m{apple}g;
> say $count;'
2
$
[download]

I hope this is of interest.