http://misao.on.arena.ne.jp/c/up/misao111414.txt
Perlってこんなアホな言語なんすか(;´Д`)
Rubyだと[ぁ-黑]みたいにして全部指定できるんだけど