#!perl -p0
s'
'\n'g;s/("((,|..)*?)"|)(,|.n)/@{[1-$,,++${--$,},(++$$4,$2)=~s'""'"'gr]}
/g