どっちにしろPerlでは向かない処理やね