if ($ort !~ /\w/) {
	       $errgif5=$errorgrafik;
	}