open(my $fh, '<&=:raw:encoding(UTF-16le):crlf', fileno(STDIN));
*STDIN = $fh;