my ($a, $b, $c, $d, @rest) = split(/stelle wo geschnitten werden soll/, $line, 4)