Select Code to Download

perl -pe"BEGIN { binmode STDIN, ':encoding(UTF-16le)'; binmode STDOUT,
+ ':encoding(cp1252)'; }" < file.wide > file.ansi

# wide_to_ansi.pl file.wide file.ansi

...
   or die("Cannot create output file \"$ARGV[1]\": $!\n");

print($fh_out $_) while <$fh_in>;