ファイル入力用のutf8 設定 と リテラル設定

use utf8;
binmode STDOUT, ':utf8'; #出口用の追加設定

open my $fh, '<:encoding(utf8)', 'data.txt' #入り口用設定
    or die "failed to open file: $!";

my $text = <$fh>;
my @text = split //, $text;
for (@text) {
    say $_;
}

close $fh;

##########################################################

use utf8;
binmode STDOUT, ':utf8'; #追加設定

my $text = 'Perl入学式';


my @text = split //, $text;
for (@text) {

    say $_;
}