in reply to Re^2: One Liner to double quote every field in a delimited file
in thread One Liner to double quote every field in a delimited file

This should work: 

chomp($_=<DATA>);
$_= join(',', map { s/"/""/g; '"' . $_ . '"' } split /,/) . "\n";

[download]
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

In Section Seekers of Perl Wisdom