> それと掲示板の表示の件なのですが・・
> ループ外とループ内に記載ということで
> foreachがループのことなんですよね？？
> 勉強不足ですみません・・・。
>
> 可能性がありそうなところは
> 記載したり戻したりしたのですが・・
> うまく動いていません・・。
>
> もしかしたら追加箇所が違っているのでしょうか・・。

　　foreach $line (@bbslines) { print qq|$line<br><hr>\n| }
上記を追加したと思いますが、これを以下のように変更するという意味でした。
　　my $count = 0;
　　foreach $line (@bbslines) { print qq|$line<br><hr>\n|; $count++; last if($count >= 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