Hi,
a solution based on many assumptions:
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use lib './lib/lib/perl5';
use Mojo::DOM;
my $html = q(
<html>
<head><title>Some list</title>
</head>
<body>
<div>
<table>
<tr>
<td>Borrower:</td>
<td>Someone</td>
<td>active date:</td>
<td>2013-03-22</td>
<td>Amount:</td>
<td>100.00</td>
</tr>
<tr>
<td>Borrower:</td>
<td>SomeoneElse</td>
<td>active date:</td>
<td>2013-03-20</td>
<td>Amount:</td>
<td>10.50</td>
</tr>
</table>
</div>
</body>
</html>
);
my $dom = Mojo::DOM->new($html);
my $table = $dom->at('table');
for my $record ($table->children('tr')->each) {
my %record = map { $_->text } $record->children('td')->each;
print Dumper(\%record), "\n";
}
McA