$ perl -MText::CSV_XS=csv -we'csv (in => csv (file => "file.csv"), out => *STDOUT, always_quote => 1)' #### $ 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