$_ = q("title", "Some Name, "some weird title"", "555-555-5555"); s/", "/","/g; s/(?<=[^,])"(?=[^,])/""/g; print "$_\n"; __END__ "title","Some Name, ""some weird title""","555-555-5555"