ここはちょっと大変なのでperlに手伝ってもらいましょう(;´Д`)