お問い合わせフォーム半角カタカナエラーチェック

ソースに下記if文（下の６つを追加）
# フォーマットチェック
if ($in{$key} ne ”) {
if (($key =~ /^zip$/i || $key =~ /^zip[^12].+/i) && $in{$key} !~ /^\d{3}\-?\d{4}$/) { $error_list{$key} = 1;}
if ($key =~ /^zip1/i && $in{$key} !~ /^\d{3}$/) { $error_list{$key} = 1;}
elsif ($key =~ /^zip2/i && $in{$key} !~ /^\d{4}$/) { $error_list{$key} = 1;}
if ($key =~ /^(tel|fax)/i && $in{$key} !~ /^\d[\d\-]+\d$/) { $error_list{$key} = 1;}
if ($key =~ /^email/i && $in{$key} !~ /^[\w\.\-\_\,\/\?\+]+\@\w+[\w\-\.]+\.[\w\-\.]+\w$/) { $error_list{$key} = 1;}
if ($key =~ /^kaisya/i && $in{$key} =~ /(?:\xEF\xBD[\xA1-\xBF]|\xEF\xBE[\x80-\x9F])+$/) { $error_list{$key} = 1; }
if ($key =~ /^syokusyu/i && $in{$key} =~ /(?:\xEF\xBD[\xA1-\xBF]|\xEF\xBE[\x80-\x9F])+$/) { $error_list{$key} = 1; }
if ($key =~ /^tantou/i && $in{$key} =~ /(?:\xEF\xBD[\xA1-\xBF]|\xEF\xBE[\x80-\x9F])+$/) { $error_list{$key} = 1; }
if ($key =~ /^busyo/i && $in{$key} =~ /(?:\xEF\xBD[\xA1-\xBF]|\xEF\xBE[\x80-\x9F])+$/) { $error_list{$key} = 1; }
if ($key =~ /^address/i && $in{$key} =~ /(?:\xEF\xBD[\xA1-\xBF]|\xEF\xBE[\x80-\x9F])+$/) { $error_list{$key} = 1; }
if ($key =~ /^comment/i && $in{$key} =~ /(?:\xEF\xBD[\xA1-\xBF]|\xEF\xBE[\x80-\x9F])+$/) { $error_list{$key} = 1; }

}