数年前に書いたまま放置しつつ、たまに使っていたperlスクリプトを 思うところがあって改造。 ついでに、よろしくない部分は書き直し。 use strict;までついていませんよ！ foreachで回して比較しているところがあったから、全部|でつなげて 正規表現マッチ…