open (DAT, '<', $datei) || die "Kann die Datei $datei nicht laden!";
    my %inhalte;
    my $tmp_var;
    my $secln=0;
    foreach (<DAT>)
    {
    if ($secln==1)
    {
    print "$tmp_var $_$ \n";
    }
        next unless (/STYLE/);
        if (/.*LI.*STYLE\=.*\"\>(.*)\<\/A.*/)
        {
            print "$1\n";
            $secln=0;
        }
        elsif (/.*LI.*STYLE\=.*\"\>(.*)/)
        {
            $tmp_var=$1;
            $secln=1;
            next;
        }  
    }