可読性が>>605より大幅に劣っているように見えるが、
そもそもPerlに可読性を求めるのが間違いとも言える