perl -pe 's/;/";"/g; s/";"/;"/; s/"$//' input > output