C:\>perl
$satz = "Dummer Text WORT mit verschiedenen WORTen und noch einem WORT!";
if($satz =~ /^(.*)?WORT/) {
  print $1;
}^Z
Dummer Text WORT mit verschiedenen WORTen und noch einem