use utf8;
sub fileread;  # use do { local $/; <$fh> }
my $file = 'test_utf8';

# Test 1
binmode STDOUT, ':encoding(UTF-8)';
my $line = fileread $file,':raw';
utf8::decode($line);

if ($line =~ /(&#10055;)/) { print "found '$1'\n"; }
print $line;


sub fileread {
  my ($file,$enc) = @_;
  my $string; my $stref = \$string;
  open(my $fh, "< $enc", $file) || die "Can't open $file: $!";
  ${$stref} = do { local $/; <$fh> };
  return $string;
}