う、、、（汗）

my $SubNo = $GB->{IDNOTANE}; # _ → - 変換しなきゃかもなので。
$SUBNO =~ tr/_/-/;
my $CHOST =
sprintf qq|MD5-%s.%d.%s.%s.%d.%s.%s.bbr.2ch.net.|,
$NG_word_status[1], # MD5値
$NG_word_status[2] ? 1 : 0, # さくらフラグ。空っぽだとイヤンなので
$ENV{REMOTE_ADDR}, # IPアドレス（ひっくり返さなくてもいぃことにしよう♪）
$SubNo !~ /\./ ? $SubNo : '0', # サブスクライバじゃないみたいときには '0' にしておく。
$GB->{FORM}->{'key'}, # スレッド番号
$GB->{FORM}->{'bbs'}, # 板名（ディレクトリ名）
$ENV{SERVER_NAME}, # 鯖名(FQDN)
;
if($FOX->{BBR}) { $FOX->{BBR} = &foxDNSquery($CHOST, "206.223.147.41") }

これで桶かな？