I'm partial to these methods:

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

or

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

or to support repeated keys:

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

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print