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

sub foxReadForm の最後の方。
#$GB->{FORM} = %FORM;
↓
return \%FORM; # リファレンスで返してあげる。

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

(ﾟДﾟ)ｳﾏｰ
かな？