Select Code to Download

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

$ perl -E '
> $str = q{I like apples, pears and pineapples};
...
> say $count;'
2
$