my @active = &readMembers;

my(@found);

  $Input{'query'} =~ s/\s/%%/gi;

  my @searchWords = split("%%", $Input{'query'});

      foreach my $active(@active){
            my $newd = lc($active);

              foreach my $searchWord(@searchWords){
                  $searchWord = lc($searchWord);
                   push(@found, $active) if grep { /$searchWord/ } $newd;
                                     }
                                             }