UTF8フラグはマジめんどいわ。
正規表現でマルチバイトも1文字で処理したいところで、
utf8::decode($str);
して次の行で正規表現してんだが、マルチバイト文字にマッチしてないわ・・・

外人がマルチバイト処理の仕組み作るからこんなことなるんだよな。
Perlの欠点、ほんとUTF8フラグだけ。
フラグつけるんじゃなくて、
マルチバイト処理用の関数とバイト処理関数を分けるべきだった。