かろうじて残っていた昔のソースをベースにリファクタリングしてみたら150行くらい縮んでワラタ
$ wc -l countkw.pl.old countkwhelper.pm 417 countkw.pl.old 82 countkwhelper.pm 499 total
$ wc -l countkw.pl 362 countkw.pl
どんだけ無駄なコード書いてたんだ。改めてみれば超簡単なことしかやってないんだよな、これって。
追記
動いてるコードに手を入れるのはめんどくさいけど、一念発起して昔書いたコードをリファクタリングするとワシワシと無駄なコードが消えていくのでちょっと楽しい。