my $string = "toller string heute nacht hier";
$string =~ /(.*?)(?=string)/;
print "'$1'\n";