while ($record = <INPUTFILE>) {
      if ($record =~ /$searchString/) {
         print $record;
         $matchesFound++;
     }
   }