教えていただいて、以下でやってみましたがうまくいきませんでした。
ご指導をよろしくお願いいたします。

bbs.cgi の 置き換え のところの

（…）
$FORM{'MESSAGE'} =~ s/([^>])>>([\d]+)/$1<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$2&nofirst=true" target="_blank">>>$2<\/a>/g;

# $FORM{'MESSAGE'} =~ s/>>([\d]+)(?!\-[\d])/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$1&nofirst=true" target="_blank">>>$1<\/a>/g;
# $FORM{'MESSAGE'} =~ s/>>([\d]+)\-([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$2" target="_blank">>>$1-$2<\/a>/g;

あたりの後にでも

$FORM{'MESSAGE'} =~s/禁止ワード/置き換えるワード/g;

　例
　$FORM{'MESSAGE'} =~s/ハゲ/発毛の不自由な人/g;