Shift_JIS でもエラーにならない Perl 正規表現

正規表現 エスケープの応用範囲

EUC-JPの場合は日本語文字列のエスケープは必要有りませんが、文字列に含まれる正規表現の特殊文字をエスケープしたい場合などにも使用できます。

#EUC-JPの場合でも特殊文字のエスケープに使用

$teststr = 'これは ? 「クエスチョンマーク」です。';
$restr = &esc4re($teststr);
print "$teststr MATCHED\n" if $teststr =~ /$restr/; #マッチする

参考書

「プログラミングPerl〈VOLUME1〉」(オライリー・ジャパン)
ラリー ウォール他 (著), 近藤 嘉雪 (翻訳)