foreach $part (@altes_array) {
        $part =~ /\n/
            ?   do {
                    (push @neues_array, $_) foreach (split /\n/, $part)
                }
            :   (push @neues_array, $part);
    }