domain.lstにリストアップして照会するようにしたほうがよい

　　　　　　　　　　　if(-s 'domain.lst'){
($ma_a, $ma_b) = split(/\@/,$IN{'mail'});
$f = 0;
open (DAT, 'domain.lst'); $list = <DAT>; close (DAT);
@lst = split(/,/,$list);
foreach (@lst){
if($ma_b =~ /$_/){ $f = 1; last; }
}
if($f){
&Err_2("そのメールアドレスは、受付できません<br>
　　　　　　　　　　　　　　フリーメールや、一部のドメインについて受付を制限しております。ご了承下さい。");

passage.ne.jp,anet.ne.jp,apro.co.jp,A-GATA.NET,AB-GATA.NET,
am.to.fm,B-GATA.NET,bizoffi.com,clubAA.com,curio-city.com,.........