use strict; use warnings; while(){ print if tr/"/"/ % 2 } __DATA__ 1,2,3 "1",2,3 1,2,"3