Well, the below sub works great but it seems a bit repetitious, to me at least. So can someone take a look at and fix up my 2:30am sub? :) In case your wondering, this sub chops up the query string into a hash. It also puts data from select boxes with multiple values into an array inside the hash.

sub formatParse {
    my $buffer = shift;
    my (%temp, %count, @params);
    foreach my $pair (split /[&;]/, $buffer) {
        my ($name, $value) = split /=/, $pair;
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9]{2})/pack("c", hex($1))/eg;
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9]{2})/pack("c", hex($1))/eg;
        push(@params, [$name, $value]);
        $count{$name}++;
    }
    foreach my $key (@params) {
        $coun{$key->[0]} = 0 unless $coun{$key->[0]};
        if ($count{$key->[0]} == 1) {
            $temp{$key->[0]} = $key->[1];
        } else {
            $temp{$key->[0]}->[$coun{$key->[0]}] = $key->[1];
            $coun{$key->[0]}++;
        }
    }
    return %temp;
}
[download]

Thanks!