##
my (%hash);
foreach $item(@pairs) {
my($key,$content) =split (/=/, $item, 2);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/ge;
$fields{$key}=$content;
}
##
##
my (%hash);
foreach $item(@pairs) {
my($key,$content) =split (/=/, $item, 2);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/ge;
my($fields{$key})=$content;
}