Another way to do this would be to use a regex that avoids non-greedy matching by employing a negated character class, ie "([^"]*)" captures zero or more non-double quotes that are surrounded by double quotes.

$ perl -le '
> $s = q{"Foo, Bar", "", "Blah"};
> @e = $s =~ m{"([^"]*)"}g;
> print for @e;'
Foo, Bar

Blah
$
[download]

I hope this is of interest.

Cheers,

JohnGG