Select Code to Download

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

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

<code>
my (%hash);
...
          $content=~s/%(..)/pack("c",hex($1))/ge;
          my($fields{$key})=$content;
  }