> (;'-')ﾉ ↓こんな風にしたんですけど、解決しません。どうしましょう。
> bbs.cgi :
> $adminname = '管理人';
> $adminnames[0] = '管理人';
> $adminnames[1] = '管理人';
> $adminnames[2] = '管理人';
> $adminnames[3] = '管理人';
> $adminnames[4] = '管理人';
> $adminnames[5] = '管理人';
> $adminnames[6] = '管理人';
> bbsreg.cgi :
> foreach ( @adminnames ) {
> 	if( $admincheck eq $_ ) {
> 		$FORM{'username'} = "$adminname（騙り）";
> 	}
> }

$admincheck =~ s/管/管/go;
$admincheck =~ s/理/理/go;
$admincheck =~ s/人/人/go;

foreach ( @adminnames ) {
     if( $admincheck =~ s/\Q$_\E/i) {
     $FORM{'username'} = "$_（騙り）";
}
でいけない？

参考：2000/02/29(火)14時57分29秒