use strict;
use warnings;
use HTML::TableExtract;

my $te = HTML::TableExtract->new ();
$te->parse (<<HTML);
<table>
    <tr><td>Cell 1</td><td>Cell 2</td><td>Cell 3</td></tr>
    <tr><td>Cell 4</td><td>Cell 5</td><td>Cell 6</td></tr>
</table>
HTML

my $table = $te->first_table_found;
my @totalrows = $table->rows ();

print "$_->[0] - $_->[1] - $_->[2]\n" for @totalrows;

##</code><code>##

Cell 1 - Cell 2 - Cell 3
Cell 4 - Cell 5 - Cell 6

##</code><code>##

my @totalrows =
    map {my $cells = $_; $_ ||= '***' for @{$cells}[0 .. 2]; $cells}
    $table->rows ();

##</code><code>##

Boss  - Firstname Surname  - ***
Secretary  - Name Surname, Mr Jones Smith - ***
Medical Doctor  - Bob Middlename Hope  - ***
Position 1  - Worker  - Secretary 
*** - Asdf Ghjk  - Name Lastname, First Last 
*** - Sally Mally  - Joe Smoe, The Who, Will Timberland 
Position 2  - Paula Simon  - Raymonde Maalouf