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

1;