my @quotes = $keyword =~ s/"([^"]*)?"//;
  my @keys = split(/ /, $keyword);

##</code><code>##

 
  my @keys =grep length, split(/ /, $keyword);


##</code><code>##

 
  my @keys = split(" ", $keyword);