perlでもなんでもどう書いてもソースが汚くなる俺がいるよ(ﾉД`､)もう読めない