こんな感じ?
●変更点(bbs998.txt を対象)
$GB->{FORM} = {};#
&foxReadForm($GB);#$FORM を読み込む

$GB->{FORM} = &foxReadForm; #$FORM を読み込む

sub foxReadForm の最後の方。
#$GB->{FORM} = %FORM;

return \%FORM; # リファレンスで返してあげる。

でもって、
$FORM{'いろいろ'}
↓(一括置換とかで。)
$GB->{FORM}->{'いろいろ'}

(゚Д゚)ウマー
かな?