#! perl
use encoding "utf16", STDOUT => "utf8";
while (<>) { print }

##</code><code>##

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