> うまくいかない事が多くて質問の追加になってしまうのですが・・・
> それも２つあります・・すみません・・。
> １つは体力アイテムなどを摂取する際に
> 過剰に摂取できなくするにはどうしたらよいのでしょうか・・・

こちらは次のようにすれば良いと思います。
1. sub foodを以下のように変更。
　　} else { &umsg('摂'); $hp = &hpcheck($hp,$xp,$iak); $gn = 1 }
　　　　↓上記の「上」に以下を追加。
　　}
　　elsif($hp >= $xp){
　　　　&umsg('満');
2. sub umsgを以下のように変更。
　　'摂',"$itemを摂取しました",
　　　　↓上記の「下」に追加。
　　'満',"満腹のため${item}を摂取できませんでした",

> もう１つは
> 保存状態の確認という以前深海星さんが配布していた改造なのですが・・こちらをマシマロさんの分割に追加すると
> うまくいかないのですが（リンク場所をクリックすると500のサーバーエラーになります）
>
> 以前本家さまのSOS2では正常に動きました。
> requireを追加したりしても何も変わりません・・。
> 他にも変更する箇所があるのでしょうか？？
> 文法のチェックをしてみましたが・・・問題はないようなのです。

改造方法の通りに行うとsub enter_formを呼び出す必要があるのに、マシマロさんの分割版にはsub enter_form自体が存在しないのが問題なのだろうと思います。
sub enter_formで行っていることをやれば良いので以下のようにすれば大丈夫かもしれません。
　　if ($Fm{'mode'} eq 'check_game') { require $checkstspl; &enter_form; }
　　　　↓
　　if ($Fm{'mode'} eq 'check_game') { require $checkstspl; &header; &table_top; &check_form; &table_bottom; }

> 一度書き込みして・・
> 街の掲示板について
> 最近の出来事のように件数を指定して表示する方法を
> 試行錯誤してました・・・
> どうも反映されません・・。
> 他のサイトさまの改造を参考に記述してみましたが・・
> うまくできませんでした・・
> ヒントでもよいので教えていただければ助かります・・

1. ループの外に以下を用意。
　　my $count = 0;
2. ループ内の最後の処理として以下を行う。
　　$count++; last if($count >= 10); # 10件の場合。サンプルなので10と直書きしてあります。

▼関連発言
│
└◆1561:掲示板の表示 [rien] 12/21 17:09
　└◆1562:Re:掲示板の表示 [moon] 12/21 23:38
　　└◆1564:Re[2]:掲示板の表示 [rien] 12/23 00:43
　　　└◆1566:Re[3]:掲示板の表示 [moon] 12/23 00:53
　　　　└◆1567:Re[4]:掲示板の表示 [rien] 12/23 02:20
　　　　　└◆1568:Re[5]:掲示板の表示 [moon] 12/23 11:08
　　　　　　└◆1569:Re[6]:掲示板の表示 [rien] 12/23 11:44<-last