@count=$string=~m/apple/g;
... , scalar @count, ...
##</code><code>##

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