use CGI qw();
use Data::Dumper qw(Dumper);

for my $x ("...?q=Suchbegriff", "?...=...&q=Suchbegriff") {
    my($qs) = $x =~ m{\?(.*)};
    print Dumper({CGI->new($qs)->Vars});
}
__END__