use Text::CSV::Encoded; my $csv = Text::CSV::Encoded->new ({binary=>1, encoding=>"utf8"}) or die $!; while (my $row = $csv->getline (*ARGV)) { $csv->print(\*STDOUT, $row); }