open (my $fh, '<:encoding(ucs-2be)', $file)