> うちで実装しているものとは違いますが、新しいフラグを使用してやるものの考え方を書きます。（うちではコメントにそのまま埋め込んでいるので効率が悪い・・・）
> フラグが$ecmで、囲みを:??:〜:/??:とします。
> ・囲みのリストを、@a = ('AA','BB','CC');とします。
> ・メッセージ変更箇所(com_afterや新規サブルーチン)で、
> 　　$ecm = '';
> 　　foreach(@a){
> 　　　　$ecm .= $& if($Fm{'ecm'}=~#:$_:.+?:/$_:#);
> 　　}
> ・メッセージ表示部分で、@aの中のどれを表示しようとしているかを判定（・・・時間が無いため省略・・・）し、（$inにAAやBBが入るようにする）
> 　　$out = $1 if($pecm=~#:$in:(.+?):/$in:#);
> とすると、$outにメッセージが残ると思います。（未テストおよび推測を含む）
おおよその流れはわかった気がします。（気ですいません）
おっしゃる意味については理解できてるとは思いますが、これを元に実際に動かすまで完璧な理解はできなさそうです（＾＾；
いろんな場面で表示するとなると、その分変更（追加）場所もでそうですし、なかなかたいへんそうですね。
解説を元にしばらく試行錯誤して、またどうしても解決できなさそうな場合はまたおじゃまするかと思います。
お忙しいのに解説して頂きありがとうございましたm（、、）m

▼関連発言
│
└◆193:お願いがあって参りました。 [なず] 12/02 05:38
　└◆194:Re:お願いがあって参りました。 [moon] 12/02 09:03
　　└◆197:Re[2]:お願いがあって参りました。 [なず] 12/03 00:30
　　　└◆198:Re[3]:お願いがあって参りました。 [moon] 12/03 19:07
　　　　└◆245:かなり遅れてしまいましたが [なず] 01/07 23:51
　　　　　└◆246:Re:かなり遅れてしまいましたが [moon] 01/08 08:53<-last