for ($ENV{QUERY_STRING}) {
   $cgi->{param}{delete $cgi->{param}{keywords}} = ""
      if length && !/[&=]/;
}