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

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

sub echte_laenge ($);

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 (echte_laenge($parts[$i+1]) < $parts[$i]) {
                if (echte_laenge($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";
}

sub echte_laenge ($) {
    my @t    = split //, shift;
    my $cnt  = 0;
    for my $i (0..$#t-1) {
        ++$cnt if ord $t[$i] == 0x10 and ord $t[$i+1] == 0x15;
    }
    return scalar(@t) - $cnt;
}

_ _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
Eintrag_vier 20 dies ist interessan  blubb bla fasel 42 /home/dummie/meine datei ist so schoen.txt