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