perl -lne 'print $1 while (/\"(.*?)\"/g)' filename