$string = "toller string heute nacht hier";
$string =~ /^(.*?)string.+$/;
print $1;