#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use lib './lib/lib/perl5';
use Mojo::DOM;
my $html = q(
Some list
| Borrower: |
Someone |
active date: |
2013-03-22 |
Amount: |
100.00 |
| Borrower: |
SomeoneElse |
active date: |
2013-03-20 |
Amount: |
10.50 |
);
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";
}