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