The Right Way™ to do this is to use Text::CSV to split your data, remove commas from any field you want to, then re-join your data.

-sauoq
"My two cents aren't worth a dime.";