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

Shift_JIS 正規表現エスケープ関数の解説

関数内の正規表現中の

[\x21\x24-\x26\x28-\x2b\x2e\x2f\x3f\x40\x5b-\x5e\x7b-\x7d]

が、Perlの特殊文字および正規表現上の特殊文字列を指定する正規表現です。
左から、以下の文字列をコードで指定しています。

!、$、%、&、(、)、*、+、.、/、?、@、[、\、]、^、{、|、}

これらが出てきたら、特殊文字「\」でエスケープしますが、正規表現上は「\」が特殊文字であることを忘れずに、置き換えの表現も「\\」とします。