perl -E 'say 0+map{split}grep{$i++%2}split/"/,do{undef$/;<>};' fil.txt