How to count words (sensitive) from file.

$infile=’Search file name’;
open INFILE,”$infile” or die ;
while() {
chomp;
$r++ for $_ =~/Searchword/g;
}
print “r $r “;

close INFILE;