#!/usr/bin/perl 
     
    use strict; use warnings; 
    use HTML::TableExtract; 
    use YAML; 
     
    my $te = HTML::TableExtract->new( 
        attribs => { class => 'bp_ergebnis_tab_info' }, 
    ); 
     
    $te->parse_file('t.html'); 
     
     
    foreach my $table ( $te->tables ) { 
            foreach my $row ($table->rows) { 
            my @values = grep {defined} @$row; 
            print "   ", join(',', @values), "\n"; 
           } 
        }