sub ReadParse {
  my $in = shift;
  @in = split(/&/,$in);
    
  foreach $i (0 .. $#in) {
    # Convert plus's to spaces
    $in[$i] =~ s/\+/ /g;
    
    # Split into key and value.
    ($key, $val) = split(/=/,$in[$i],2); # splits on the first =.
    
    # Convert %XX from hex numbers to alphanumeric
    $key =~ s/%(..)/pack("c",hex($1))/ge;
    $val =~ s/%(..)/pack("c",hex($1))/ge;
    
    # Associate key and value. \0 is the multiple separator
    $in{$key} = $val;
  }
  return \%in;
}

my $data = ReadParse('a=7&b=1&text=Some+text');
print $data->{text}, "\n";
# prints 'Some text'