awk はだめですか？ perlが難しいのでawkしか使えないんですけど。