my $foo = q!key2="val1","val2","val3"!;
my $bar = () = $foo =~ m/"/g; 
print "$bar\n";