perl -lne 'print $1 while (/\"((\\.|[^\"])*)\"/g)' filename