perl -e '$_= q["ab"cde"fgh"];print $1,"\t"  while m/(?=("[^"]*"))/g'