現在
$a =~ s/<br>//;
if($a =~ /[^a-zA-Z0-9\.\, <>\?\/]/) {&DispError2($GB,"ERROR!","日本語は受け付けていません"); }