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