Select Code to Download

# result
if ($count){
  print "$count matches\n";
} else {
  print "No matches found\n";

# search text file
open IN, '<',$file or die "Could not open $file : $!";
...
  }
 }
}