use strict;
use warnings;

use open ':std', ':locale';

use Data::Dumper qw( Dumper );

my $file = do {
   open(my $fh, '<:encoding(UTF-8)', 'jap') or die $!;
   local $/;
   <$fh>
};

print(Dumper($file));
print("[$_]") for $file =~ /(.)/sg;
print("\n");