%Q = CGI::Vars();
delete $Q{$_} for grep {m/^_/} keys %Q;