Perlで正規表現使ってとあるファイルをいじってるんですが
read(FILE,$buffer,6)
$buffer =~s/([\xA1A1-\xFEFE]|\x8E[\xA1-\xDF])\xA3\x0C|\x1B([\xA1A1-\xFEFE]|\x8E[\xA1-\xDF])/$1\n$2/g;
（一部分のみ）

の場合”不気味”にひっかかったり”ィ”にひっかかったりします
・・・
何かいい表現はないかなと思って詮索してみましたが分からないのでお力借りたいですorz

文字コードはEUCで1バイト文字も混在してます