●変更点(bbs998.txt を対象)
$GB->{FORM} = {};#
&foxReadForm($GB);#$FORM を読み込む
↓
$GB->{FORM} = &foxReadForm; #$FORM を読み込む
sub foxReadForm の最後の方。
#$GB->{FORM} = %FORM;
↓
return \%FORM; # リファレンスで返してあげる。
でもって、
$FORM{'いろいろ'}
↓(一括置換とかで。)
$GB->{FORM}->{'いろいろ'}
(゚Д゚)ウマー
かな?