$s='finding related pages finding on the world wide web';
my $count=$s=~ m/finding/g;
print $count;