Select Code to Download

   while ($record = <INPUTFILE>) {
      $_ = $record;
...
         $matchesFound = $matchesFound + 1;
     }
   }

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

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