perl -pe 's/(?<!,)"(?!,)/""/g' <in.csv >out.csv