#!/usr/bin/perl -- use strict; use warnings; use HTML::TreeBuilder::XPath; my $tree= HTML::TreeBuilder::XPath->new_from_content(<<'HTML');

May-2015

2015-06-25

3.750

HTML $tree->dump; my @rows = $tree->findnodes(q{//div[@class =~ /Row/ ]}); print 0+@rows, "\n"; for my $row ( @rows ){ my @cells = $row->findnodes(q{ //div[ @class =~ /Cell/ ] }); print 0+@cells, "\n"; for my $cell ( @cells ){ print $cell->as_trimmed_text, "\n"; } } __END__ @0 (IMPLICIT) @0.0 (IMPLICIT) @0.1

@0.1.0

@0.1.0.0 " May-2015 "

@0.1.0.1 " 2015-06-25 "

@0.1.0.2 " 3.750 " 1 3 May-2015 2015-06-25 3.750