Select Code to Download

  my %hash = split /=|\b(?=\S+=)/, $data;
  $hash{$_} = [ split / /, $hash{$_} ] for keys %hash;

  my %hash;
  $hash{$1} = [split / /, $2] while $data =~ /(\S+)=(.*?)(?=\S+=|$)/g;

  my %hash;
  push @{$hash{$1}}, split / /, $2 while $data =~ /(\S+)=(.*?)(?=\S+=|
+$)/g;