my @woerter= split " ", $eingang{'text'};

foreach (@woerter){
	next if ($_ =~ m/^\W+$/); #Versuch Sonderzeichen zu übergehen
	$_ =~ m/^(\w)(\w*)(\w)(\W*)$/; # Umlaute bringen alles durcheinander
	my @zeichen = split "", $2;
	@zeichen =  reverse @zeichen;
	$_ = $1;
	$_ .= join "", @zeichen;
	$_ .= $3;
	$_ .= $4;
}