$ perl -MData::Dump -MCGI -e " dd( CGI->new(q{?noampernoequal}) )"
bless({
  ".charset"     => "ISO-8859-1",
  ".fieldnames"  => {},
  ".parameters"  => ["keywords"],
  "escape"       => 1,
  "param"        => { keywords => ["?noampernoequal"] },
  "use_tempfile" => 1,
}, "CGI")

$ perl -MCGI -e " print CGI->new(q{?noampernoequal})->param "
keywords
$ perl -MCGI -e " print CGI->new(q{?noampernoequal})->keywords "
?noampernoequal
$ perl -MCGI -e " print for CGI->new(q{?noampernoequal})->keywords "
?noampernoequal
$ perl -MCGI -e " print for CGI->new(q{?a=b;noampernoequal})->keywords "

##</code><code>##

use Data::Dump;
use CGI;
my $q = CGI->new( q{?noampernoequal});
dd $q;
dd $q->param;
dd $q->keywords;
$q->delete('keywords') if $q->keywords;
dd $q->param;
dd $q;
__END__
bless({
  ".charset"     => "ISO-8859-1",
  ".fieldnames"  => {},
  ".parameters"  => ["keywords"],
  "escape"       => 1,
  "param"        => { keywords => ["?noampernoequal"] },
  "use_tempfile" => 1,
}, "CGI")
"keywords"
"?noampernoequal"
()
bless({
  ".charset"     => "ISO-8859-1",
  ".fieldnames"  => {},
  ".parameters"  => [],
  "escape"       => 1,
  "param"        => {},
  "use_tempfile" => 1,
}, "CGI")