#!/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";
}