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