while (my $token = $stream->get_tag("table")){
    print $d->Dump;
    print $token->[2]{class};
    if($token->[2]{class} eq 'details'){
        print $stream->get_trimmed_text("/table");
    }
}