perl -Mencoding=utf16,STDOUT,utf8 -n -e print < in > out