s/[^\p{Hiragana}\p{Katakana}\p{Han}]//sg; これでうまくいくかと思いきやうまくいかず。http://homepage1.nifty.com/ton_b/intro/regex03/ によると、 否定はpを大文字にして\P{Property}とするか、\p{^Property}と否定のメタ文字を入れます。 ということ…

http://www.pure.ne.jp/~learner/program/Perl_unicode.html ここを早めに読むべきだった。use utf8とuse encoding 'utf8'、どっち使えばええねん！ ってわけでuse encoding 'utf8'をしていたわけですが、 それのせいでuseしただけでdecode_xsがいっぱい呼ば…