open(my $F, "<:encoding(UTF-8)", $f) or die "Cannot open $f for unicode input";