> > という風に出力されるようにすれば%81で壊されたりとかしないだろ
> 対象はhiddenﾌｨｰﾙﾄﾞのinput
> つーかよく考えてから書き込めよ

では
	if ( ( $FORM{'k'} ne 'あ' && $FORM{'v'} ) || $FORM{'j'} ) {
		require "$jcode";
		foreach ( keys %FORM ) {
			&jcode'convert ( *FORM{$_}, 'sjis' );
		}
	}
の後辺りに
	foreach ( keys %FORM ) {
		&prterror ( 'パラメータが不正です。' ) 
		  unless $FORM{$_} =~ /^(?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]|[^\x81-\x9F\xE0-\xFC])*$/;
	}
を入れるというのではどうか

参考：2008/09/27(土)10時43分05秒