Select Code to Download

{ 
  key1 => 'value0 value1, value2',
  key2 => 'value3',
  key3 => 'value4',
}

my %data;
while ($string =~ m/\s+([^\s]+?)=([^\s]*)/g) { $data{$1} = $2; }