open(my $fh, '<:encoding(UTF-8)', $file);

##</code><code>##

open(my $fh, '<', $file);
binmode($fh);