なんか全部をperlあたりで処理した方が良さげな気がする。