>>949
すでに頭が固まっている、、、
× print "$tript#$key2n" if m!$pattern!o;
○ print "$tript#$key2n" if $trip =~ m!$pattern!o;

"$c1$c2$c3$c4"は、固定値なので本ループの前にあらかじめ作っておくと良いかも♪