Select Code to Download

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

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

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