my $grammar = q~
    titel: '<h1>' /.*(?=<\/h1>)/ '</h1>' { $return = $item[2]; }
    toc_eintrag: '<li>' /[^\n]*/ { $return = $item[2] || ""; chomp $return; }
    toc: toc_eintrag(s?)
    header: titel toc { $return = {TITEL => $item[1], TOC => $item[2]}; }
    link: /<a[ \w="\d]*?>/i /(.|\s)*?(?=<\/a>)/i /<\/a>/i { $return = $item[2]; }
    start_h2: /<H2>/i
    end_h2: /<\/H2>/i
    eintrag_separator: /<hr \/>/i
    eintrag: eintrag_separator link(?) start_h2  /.*(?=<\/H2>)/i end_h2 /(.|\s)*?(?=<hr \/>)/ {
        $return = { EINTRAG_TITEL => $item[4], EINTRAG_TEXT => $item[6] || "", LINK => $item[2] || ""};
        chomp $return->{EINTRAG_TEXT};
    }
    eintraege: eintrag(s?) eintrag_separator { $return = $item[1]; }
    datei: header eintraege { $return = [$item[1], $item[2]]; }
~;