while (my $table = $stream->get_tag("table")){
 print $table->[1]{class};
 if($table->[1]{class} eq 'details'){
  print "HERE";
  while(my $row = $table->get_tag("td")){
   print $table->get_trimmed_text("/td");
  }
 }
}