$ perl -MText::CSV_XS -we'$c=Text::CSV_XS->new;$a=$c->getline_all(\*ARGV);$c->eol($/);$c->always_quote(1);$c->print(\*STDOUT,$_)for@$a' file.csv