open(my $fh, '<:encoding(UTF-8)', $language_qfn) or die;
while (<$fh>) {
   ...
}