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