>>210
yyregi.cgiの377行あたりにこれでいいんじゃね？
my @_word = ('儲', '必見', '是非');
foreach my $_key (@_word) {
&error("不正なアクセスです") if grep 0 <= index($_, $_key), map $in{$_}, qw/name url email comment/;
}