現在
my $a = $GB->{FORM}->{'MESSAGE'} . $GB->{FORM}->{'mail'} . $GB->{FORM}->{'FROM'} ;
$a =~ s/<br>//;
if($a =~ /[^a-zA-Z0-9\.\, <>\?\/\&\;\!\:\=]/) {&DispError2($GB,"ＥＲＲＯＲ！","日本語は受け付けていません"); }

名無しも変えなきゃ