while (<>) { chomp; s/"/""/g; print qq["$_",\n]; }