Use Text::CSV to parse the file, then do the replacement within each field, and print it out again.