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