#!/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]) {
               $parts[$i+1] .= ' ' . splice @parts, $i+2, 1;
            }
        }
    }
    print "$.: parts besteht aus ", scalar@parts, " Teilen: @parts\n";

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



_ _DATA_ _
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