open (my $fh2, '>:encoding(UTF-16)', $textfile2)