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

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

if ($text =~ m/wort(.*?)andreeswort/) {
     print $1;
}
else {
     print "Nicht gefunden\n";
}

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

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

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

#!/usr/bin/perl

use warnings;
use strict;

my $word = "WORT";
my $otherword = "ANDRENWORT";
my @satz = ();
$satz[0] = "Ein Text mit einem WORT und noch einem ANDRENWORT sowie einem ANDRENWORT.";
$satz[1] = "Ein Text mit einem WORT und noch einem WORT sowie einem ANDRENWORT.";
$satz[2] = "Ein Text mit einem ANDRENWORT und noch einem WORT sowie einem ANDRENWORT.";
$satz[3] = "Ein Text mit einem ANDRENWORT und noch einem ANDRENWORT sowie einem WORT.";

foreach(@satz) {

    print $_."\n";
    if($_ =~ /(^.*?)\s$word.*/) {
        print $1."\n";
    }
    if($_ =~ /.*(\s$word(.*?)\s$otherword).*/) {
        print $2."\n";
    }
    print "__\n";
}