##E-mailƒ`ƒFƒbƒN
if ($FORM{'MAIL'} eq ""){ $err_msg .= "E-mail<BR>" }
elsif ($FORM{'MAIL'} !~ /^[\w-\.]+@[\w-\.]+\.[\w-_\.]+$/){ $err_msg .= "E-mail<BR>" }
elsif ($FORM{'MAIL'} =~ /,/) { $err_msg .= "E-mail<BR>" }

1;