スクリプトふにふに

数年前に書いたまま放置しつつ、たまに使っていたperlスクリプトを
思うところがあって改造。
ついでに、よろしくない部分は書き直し。
use strict;までついていませんよ！

foreachで回して比較しているところがあったから、全部|でつなげて
正規表現マッチにしてみたら劇的に速くなった。
比較回数が減るからなんだろうけど、そんなに違うものでしたか。