Perlコード汚すぎる。