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