Select Code to Download

(?=\s[^\s]+=)

my $string  = "sometrash key1=value0 value1, value2 key2=value3 key3=v
+alue4"; 
   $string .= " dummy=";              # add a dummy value for the rege
+x to work
...
while ($string =~ m/\s+([^\s]+?)=(.*?)(?=\s[^\s]+=)/g) 
    { $data{$1} = $2; }