foreach my $ts ( $te->tables ) {
    print "Table (", join( ',', $ts->coords ), "):\n";
    foreach my $row ( $ts->rows ) {
       s/[\s\n]+\z/ for @$row;
       s/\n/ /gs for @$row;
       $OUT-> print( join( ',', grep { length $_ } @$row ), "\n");
    }
}