#!/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"; }