my $string = "toller string heute nacht hier";

my $pos = index($string, ' string');

my $w = substr($string, 0, $pos);

print "$w\n";