perl -Mencoding=utf16,STDOUT,utf8 -p -e 1 < in > out