perl -e 's^$^";"x(2-y-;--)^e' -p data