open my $input_fh,
    '<:raw:perlio:encoding(UTF-16LE):crlf:utf8', $input_file
    or die "Can't open input file $input_file: $OS_ERROR\n";
open my $output_fh,
    '>:raw:perlio:encoding(UTF-16LE):crlf:utf8', $output_file
    or die "Can't open output file $output_file: $OS_ERROR\n";