language: Perl (perl 5.16.2)
date: 1018 days 10 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9

   my $string = "var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";
 
   my @array = $string =~ m/\w+=(?:"[^"]*"|\S+)/g;
 
   for ( my $i = 0; $i < scalar( @array ); $i++ )
   {
     print $i.": ".$array[$i]."\n";
   }