in reply to Reg Ex with quotes

perl -ne 'push(@array,$1) if /"(.*?)"/' data_file

[download]

In Section Seekers of Perl Wisdom