ファイル入力用の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 $_; }