You're confusing tr/// for s///; see perldoc perlop. But more to the point you probably want something like Text::CSV_XS to parse your CSV into an array, remove embedded commas as needed, and then use the same module to write it back out.