とりあえず誰かPerlの文 解析してくれ
怖くて使えん