$str =~ /([^CBf\s)])*$/;	# match hinten (sind in Wirklichkeit mehr Zeichen)
	$pos=$-[0] - 1;			# ist -1 wenn kein match, ansonsten $str[$pos]
	$csp=substr($`,-1,1);		# welches Zeichen gefunden wurde