>>785 乙です．purge の部分は一応いいとは思いますが，
purge は key を複数指定可能なので，ループで回すより
join して一気に渡した方が効率的かもです......


あと，これもやらなきゃかな......

# subject.txt 読み込み
if (IsSnowmanServer == BBSD->{REMOTE}) {
    @sub1 = GetSubjectFromBackend($bbs);
}
else {
    # 従来の処理
}

# 924 関連，こっちはループで......
foreach (grep(/^924/, @sub1)) {
    /^(\d+)\.dat<>/ or next;
    bbsd("../$bbs/dat/$1.dat", 'touch', 0, 'nolog');
    bbsd($bbs, 'raise', $1, 'nolog');
}