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