sub start{
 my ($self,$tag,$attr) = @_;
 if($tag eq 'div' && $attr->{class} eq 'scroll'){
     $self->{search} = 1;
 }
if($tag eq 'div' and $self->{search}){    # DIESEN PART LÖSCHEN ?
     $self->{divs}++; 
 }
 if($tag eq 'title'){
     $self->{title} = 1;

 }
}

sub text{
 my ($self,$dtext) = @_;
 $string .= $dtext if($self->{search});
 $title = $dtext if($self->{title});
}

sub end{
 my ($self,$tag) = @_;
 if($tag eq 'div' and $self->{search}){
     $self->{divs}--;
 }
if($self->{divs} == 0){         # DIESEN PART LÖSCHEN ?
     $self->{search} = 0;
 }
 if($tag eq 'title'){
     $self->{title} = 0;
 }
}