Help for this page
grep "Joe's Store" your_filename | wc
while($line=<>) { chomp $line; $a++ if($line =~ /Joe's Store/); } print "Joe's Store occured $a times\n";