if($satz =~ /^.*?WORT(.*)$/) { print $1; }