> > ﾋｱﾄﾞｷｭﾒﾝﾄのところの行で@があるとかいう変なｴﾗｰﾒｯｾｰｼﾞﾊﾞﾝﾊﾞﾝなんだけど。
> > Perl5.005_03で。ﾛｰｶﾙのﾛｰｶﾙのPerl5.6.1だと何故か大丈夫なんだが。
> SJISの全角空白だろ？
> この2バイト目は@と同じコードなんだよ。
> つまり、全角空白のなかに@が隠れているってことなんだ。
> EUCなら問題なし。
> つか、旧バージョンのPerlでもエラーになると思うけど。
> テスト方法、間違ってない？
> 知らず知らずにEUC変換されてるとか。

ハッカ飴さんのさりげない発言を参考にしてﾋｱﾄﾞｷｭﾒﾝﾄの
print <<"EOF";
を
print <<'EOF';
にしたらSJISのままうまくいきました。
なぜprint <<EOFだと全角空白とかでも無問題で"EOF"だとｴﾗｰなのか
若干ふに落ちない部分はあるんですが、
ハッカ飴先生直直の指導をいただき大変光栄でした、とまとめておきます。

参考：2002/01/26(土)01時01分35秒