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

##</code><code>##

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

##</code><code>##

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