#!/usr/bin/perl --
use strict;
use warnings;

{
    use Text::CSV::Encoded;
    use autodie 2.06;
    use open ':encoding(UTF-16LE)';

    my $csv = Text::CSV::Encoded->new ({
        encoding_in  => "UTF-16LE",
        encoding_out => "UTF-16LE",
    });

    open (my $in,  "input.csv");
    open (my $out, "output.csv");

    while( my $columns = $csv->getline( $in ) ) {
        $csv->print( $out, $columns );
    }
}
[download]