Shift_JISのperlスクリプトでは”表”という文字を使えない件 5C問題

perl 
use strict;
use warnings;

# ”表”をスクリプト上に書くとエラー（\を認識してしまうみたい）
# なので<DATA>から読み出す方法を試す
#my $hyou = qq(表);

while (my $hyou = <DATA>) {
	chomp $hyou;
	print "[$hyou] is\n";
	if ($hyou =~ /\\/) {
		print "\\ match.\n";
		my @list = unpack("H*", $hyou);
		print "hyou @list\n";
		@list = unpack("H*", "\\");
		print "\\ @list\n";
	}
}
__END__
表
    • 実行結果
C:\work>perl -w test.pl
[表] is
\ match.
hyou 955c
\ 5c