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