#!/usr/bin/perl

use warnings;
use strict;

my $text = "Ich möchte DIESE STELLE herausbekommen";

my @textarray = split(" ", $text);
my $i;
foreach $i (@textarray) {
    print "$i\n";
}
print "Ok, neuer Split:\n";
my @textarray2 = split("Ich möchte ", $text);
foreach $i (@textarray2) {
    print "$i\n";
}
print "Nochmal:\n";
my $text2 = $textarray2[1];
print "$text2\n";
my @textarray3 = split(" herausbekommen", $text2);
foreach $i (@textarray3) {
    print "$i\n";
}
print "Ergebnis: '$textarray3[0]'.\n";