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

Blah
$