my $vPattern = '<!-- navigation_vertikal --><!-- diese Kommentare nicht entfernen! -->';
    my $hPattern = '<!-- nav_h --><!-- diese Kommentare nicht entfernen! -->';
    my $vPatternEnde = '<!-- /navigation_vertikal --><!-- diese Kommentare nicht entfernen! -->';
    my $hPatternEnde = '<!-- /nav_h --><!-- diese Kommentare nicht entfernen! -->';

    my @template = extractFile( $main_template );
    my $flag = 0; # 0 = init, 1 = vfound, 2 = hfound,
    my %navs = ();
    my $navcnt = 0;
    for my $cnt ( 0 .. $#template ) {
        if( $template[$cnt] =~ m/$vPattern/ig or $flag == 1) {
            print "v-fopund!<br />\n" if $flag == 0;
            $navcnt++ if $flag == 0;
            $flag = 1;
            push @{ $navs{$navcnt} }, $cnt;
            if( $template[$cnt] =~ m/$vPatternEnde/ig ) {
                $flag = 0;
                print "v-found-ende<br />\n";
            }
        }
        if( $template[$cnt] =~ m/$hPattern/ig or $flag == 2) {
            print "h-found!<br 7>\n" if $flag == 0;
            $navcnt++ if $flag == 0;
            $flag = 2;
            push @{ $navs{$navcnt} }, $cnt;
            if( $template[$cnt] =~ m/$hPatternEnde/ig ) {
                $flag = 0;
                print "h-found-ende<br />\n";
            }
        }
    } # for my $cnt ( 0 .. $#template ){}
    print Dumper( %navs );