my %params = split /[+=]/, $ENV{QUERY_STRING};

print Dumper(\%params);