>>928
##### ignore case #####
if ($ignore_case){
えーっ、、、

おそらく速度的には変わらないと思うけれどもこの辺りに。。。
つ print "$tript#$key2n" if m!(?($ignore_case)(?i)$pattern|$pattern)!o;

変更するときに複数箇所同じ変更をしなきゃいけない描き方は、あとでえらい目に遭います♪