質問させてください。
perl で全角文字の二バイト目が正規表現の特殊文字になってるとき

\x81^

を

\x81\^

とかに置換したいんです。（\）を付加したい

上記の場合は　s/\x81\^/\x81\\\^/g;

で済むと思うのですが、一バイト目の範囲が結構広いので、
なんかうまく書く方法無いでしょうか？

お願い致します。