> > > &umsg('摂');を置き換えるだけです。
> 元の&umsg('摂');を囲んであったelse{}が無いようですが。

結局のところ勉強不足というか言葉がいまいち分からず、
「置き換え」の仕方が分からないです。
置き換え、置換で探しても置換演算子あたりでヒットしてしまって。これとは別物ですよね。

何度も同じところですみませんが、
# Sub Food #
sub food {
　　　　if ($av eq 'dead') { &umsg('死') }
　　　　elsif ($bp =~ /Hb/) {
　　　　　　　　$item = $bn . $item; $bp =~ tr/a-zA-Z//d;
　　　　　　　　$iak *= $bp; $iak = 999 if $iak > 999; $iak = -99 if $iak < -99;
　　　　　　　　$sts = sprintf("%04d%03d%03d",0,$iak,0) . "FdWi";
　　　　　　　　&umsg('作'); $bp = $bn = '';
　　　　} else { &umsg('摂'); $hp = &hpcheck($hp,$xp,$iak); $gn = 1 }
if(index($sts, 'Pf') < 0){
　　 &umsg('摂'); # 通常のメッセージ
}
else{
　　 push(@msg, '腐っていたようでお腹を壊しました。'); # 賞味期限切れのメッセージ
　　 $av = 'poison';
}
}
にすると当然「置き換え」の指示通りではないし
単に書き込んだだけ、文法もだめになっちゃいます。

▼関連発言
│
└◆586:新アイテム [akira] 05/19 00:22
　└◆587:Re:新アイテム [moon] 05/19 09:05
　　└◆588:Re[2]:新アイテム [akira] 05/19 12:23
　　　└◆589:Re[3]:新アイテム [moon] 05/19 22:33
　　　　└◆590:Re[4]:新アイテム [akira] 05/20 09:08
　　　　　└◆591:Re[5]:新アイテム [moon] 05/20 19:32
　　　　　　├◆592:補足 [moon] 05/20 23:20
　　　　　　└◆593:Re[6]:新アイテム [akira] 05/21 05:31
　　　　　　　└◆594:Re[7]:新アイテム [moon] 05/21 08:37
　　　　　　　　└◆595:Re[8]:新アイテム [akira] 05/21 09:45
　　　　　　　　　└◆597:Re[9]:新アイテム [masaki] 05/21 13:14
　　　　　　　　　　└◆598:Re[10]:新アイテム [moon] 05/21 19:25
　　　　　　　　　　　└◆599:できました! [akira] 05/21 22:06
　　　　　　　　　　　　└◆600:Re:できました! [masaki] 05/22 16:46<-last