>>316
SJISならこんな感じかな

if(length($in{kana}) > $kana_max ||
length($in{eigo}) > $eigo_max ||
length($in{suuji}) > $suuji_max){error('文字多いよ');}
if($in{kana} =~ /[^\x20\xa7-\xdd]/i){error('半角カナで入れてね');}
if($in{eigo} =~ /[^\x20a-z]/i){error('半角英字で入れてね');}
if($in{suuji} =~ /[^\x20\d]/){error('半角数字で入れてね');}

>>321
ここは匿名掲示板だからね
相手の概要はわからないほうが色々と都合が良いのよ
むしろ余計な情報は邪魔