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