#!/usr/bin/perl
use strict;
use warnings;

my @ind = (1, 6);
local $" = "-";

while (<DATA>) {
    print "\n$.: $_";
    my @parts = split;

    for my $i (@ind) {
        print "$.: parts besteht aus ", scalar@parts, " Teilen: @parts\nindex=$i\n";
        if ($parts[$i] eq "0") {
            @parts = (@parts[0..$i], '', @parts[$i+1..$#parts]);
        }
        else {
            while (length($parts[$i+1]) < $parts[$i]) {
                if (length($parts[$i+1])+1 == $parts[$i]) {
                    $parts[$i+1] .= ' ';
                }
                else {
                    $parts[$i+1] .= ' ' . splice @parts, $i+2, 1;
                }
            }
        }
    }
    print "$.: parts besteht aus ", scalar@parts, " Teilen: @parts\n";

    print "$.: '$parts[2]', '$parts[7]'\n";
}




Eintrag_eins 20 dies ist interessant blubb bla fasel 42 /home/dummie/meine datei ist so schoen.txt
Eintrag_zwei 0 blubb bla fasel 14 /root/mein.txt
Eintrag_drei 0 blubb bla fasel 0
Eintrag_vier 20 dies ist interessan  blubb bla fasel 42 /home/dummie/meine datei ist so schoen.txt