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