正確にはマルチバイト文字があるかどうかの判定 use Encode qw(decode); my $text = "こんにちは、世界！"; if (length(decode('Shift_JIS', $text)) != length($text)) { print "文字列にマルチバイト文字が含まれています\n"; } else { print "文字列にマ…