#!/usr/bin/perl -- use strict; use warnings; use Web::Scraper; use Data::Dump; my $sample = q{

July 12

Tim

Jon

July 13

James

Eric

Jerry

Susie

July 14

Kami

Darryl

}; sub scrap { my @root; my $names = scraper { process q{//h4 | //p}, sub { if( $_->tag eq 'h4' ){ pop @root; push @root, {}, $_->as_trimmed_text; } if( $_->tag eq 'p' ){ push @{ $root[-2]->{ $root[-1] # key } } , $_->as_trimmed_text; } }; }; $names->scrape( @_ ); pop @root if not ref $root[-1]; return \@root; } dd scrap( \$sample ); __END__ [ { "July 12" => ["Tim", "Jon"] }, { "July 13" => ["James", "Eric", "Jerry", "Susie"] }, { "July 14" => ["Kami", "Darryl"] }, ]