> おおよその流れはわかった気がします。（気ですいません）
> おっしゃる意味については理解できてるとは思いますが、これを元に実際に動かすまで完璧な理解はできなさそうです（＾＾；
> いろんな場面で表示するとなると、その分変更（追加）場所もでそうですし、なかなかたいへんそうですね。
> 解説を元にしばらく試行錯誤して、またどうしても解決できなさそうな場合はまたおじゃまするかと思います。
> お忙しいのに解説して頂きありがとうございましたm（、、）m

場面場面で表示するのには次のような感じのサブルーチンを作成し、それを呼び出してメッセージ選択をすると楽だと思います。

sub GetComment{
　　my %type = (
　　　　 '売前'=>'AA'
　　　　,'売後'=>'BB'
　　　　# ,必要なだけ追加
　　);
　　my $temp = $type{"$_[0]"};
　　if($temp ne ''){
　　　　return $1 if($pecm=~/:$temp:(.+?):\/$temp:/);
　　}
　　return '';
}

使用例
$message = GetComment('売後');
push(@msg,"[$pid]$pnm : $message") if($message ne '');

# もちろん適当に書いたので間違っている可能性あり。

▼関連発言
│
└◆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