Select Code to Download

use utf8;
sub fileread;  # use do { local $/; <$fh> }
...
  ${$stref} = do { local $/; <$fh> };
  return $string;
}

my $line = fileread $file,':encoding(UTF-8)';
$line = Encode::decode('UTF-8', $line, 'Encode::FB_CROAK');