language: Perl (perl 5.16.2)
date: 1016 days 23 hours ago
link:
visibility: public 
1
2
3
4
5

my $string = "var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";
 
while($string =~ /((?:^|\s+)(\S+\s*=\s*"[^"]*"|\S*))/g) {
        print "<$1>\n";
}