>>797さん　ありがとうございます
それでやってみたんですが
ファイルを呼び出した時点でinternet server errorになりました...
if ($in{'msg'}){
if ($in{'msg'} !~ /\x82[\x9F-\xF1]/){
&error(不正な入力です);}
}
だと、平仮名入力なら実行できます。
平仮名以外を入力すると500エラーになります。

平仮名　ならば　そのまま実行
平仮名以外　ならば　エラーメッセージを出しましょう
……という風にできればベストなんですが。