while ( <FILE> ) {

   my $line = $_;

   chomp ($line);
   my @word = split / /, $line;


   $count = 0;
   while ( $word[ $count ] ) {
      $word[ $count ] =~ tr/^[\.\/\\=a-zA-Z]//;
      $count++;
   }

   foreach my $string ( @word ) {
      next if $uword{ $string } == 1;
      $uword{ $string } = 1;
   }
}

$count = 0;

while ( my ($key, $value) = each(%uword) ) {

   my ( $owner, $om, $manager );

   my $select =   qq/SELECT r.owner, r.om, r.manager /;
   my $from =     qq/FROM r, n /;
   my $where =    qq/WHERE MATCH(r.owner, r.om, r.manager) AGAINST('+$key' IN BOOLEAN MODE) /;
   my $likedate = qq/AND n.time LIKE '$date%' /;
   my $join =     qq/AND r.key = n.key/;

   my $query = $select . $from . $where . $likedate . $join;

   print "SQL: $query\n";
   my $sth = $dbh->prepare( $query );
   $sth->execute;