perlでファイルを開くところで諦めた・・・。