Select Code to Download

my ($name, $value);
my @vars = split "&", $data;
...
($name, $value) = split "=";
$hash->{$name} = $value;
}

  while ($data =~ /(.*?)\[(\d+)\]=(.{[B]$2[/B]})/g) {
  
$hash->{$1} = $3;
  }