my @teil = split(/stelle wo geschnitten werden soll/, $line, 4);
print $teil[0], "\n", $teil[1], "\n", $teil[2], "\n", $teil[3], "\n", @teil[ 4 .. $#teil ], "\n";