##FAX番号チェック
if ($FORM{'FAX'} eq ""){ $err_msg .= "Fax番号<BR>" }
#if ($FORM{'FAX'} && $FAX !~ /^(\d+)-(\d+)-(\d+)$/){ $err_msg .= "Fax番号<BR>" }

1;