my $test = "aaaEccc.zzz";
if($test =~ tr/eE/eE/ > 1)
{
	print "zu viele e's\n";
}
else
{
	if(index(lc($test), "e") + 1 >= index($test, "."))
	{
		print "punkt falsch gesetzt\n";
	}
}