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

##</code><code>##

binmode(STDIN, ':encoding(UTF-8)');

##</code><code>##

use Encode qw( decode );
my $line_bytes = <$fh>;
my $line_chars = decode('UTF-8', $line_bytes);