Use Text::CSV_XS, with binary=>1 and it will handle your CSV much faster and cleaner than any regex you can come up with.