$tempName= $query->param('searchText'); #user supplied
open (FILE, "filename");
@file = <FILE>;
close FILE;
$temp = join('',@file);
$temp =~ /$tempName/s;
if ($temp eq '')
{
  open FILE, ">>filename";
  print FILE $tempName . "\n";
}
close (FILE);