#!/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.";
$satz[4] = "WORT und ein Text mit einem ANDRENWORT und noch einem ANDRENWORT sowie einem WORT";

foreach(@satz) {

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

$word = quotemeta($word);

     quotemeta EXPR
     quotemeta
             Returns the value of EXPR with all non-"word"
             characters backslashed.  (That is, all characters
             not matching "/[A-Za-z_0-9]/" will be preceded by a
             backslash in the returned string, regardless of any
             locale settings.)  This is the internal function
             implementing the "\Q" escape in double-quoted
             strings.

             If EXPR is omitted, uses $_.