in reply to How do I surround commas with escaped double-quotes?

$_ = ',';
s!,!"\\\\\\",\\\\\\""!;
print "$_\n";

[download]
This prints: 
"\\\",\\\""

[download]
Is this what you're looking for?

In Section Seekers of Perl Wisdom