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