perl -ne "print if /\".+\"/"