perlでちょっとしたテキスト処理なんかをする時に while (<>) { # code for each line } みたいなコードをよく書くんだけど、ちょっと格好つけて（？）use utf8とかuse encodingとかuse openとかつけてみたら*1途端に文字化けしまくって、しかもどうやったら…