# 全角カタカナ [ァ-ヶ]
$Zkatakana_sjis = '(?:\x83[\x40-\x96])';

##名前カナの姓チェック
if ($FORM{'LKANA'} eq ""){ $err_msg .= "名前カナ-姓<BR>" }
elsif($FORM{'LKANA'} !~ /^$Zkatakana_sjis+$/){ $err_msg .= "名前カナ-姓<BR>" }

##名前カナの名チェック
if ($FORM{'FKANA'} eq ""){ $err_msg .= "名前カナ-名<BR>" }
elsif($FORM{'FKANA'} !~ /^$Zkatakana_sjis+$/){ $err_msg .= "名前カナ-名<BR>" }

1;