July 12

Tim

Jon

July 13

James

Eric

Jerry

Susie

July 14

Kami

Darryl

##

[
  {
     'July 12' => [ 'Tim', 'Jon' ]
  },
  {
    'July 13' => [ 'James', 'Eric', 'Jerry', 'Susie' ]
  },
  {
    'July 14' => [ 'Kami', 'Darryl' ]
  },
]

##

##

my $names = scraper {
  process '//h4[@class="bla" and . = "July 12"]', 'dates[]' => scraper {
    process 'p', 'name' => 'TEXT';
  };
}

##

##

use strict;
use warnings;
use Web::Scraper;
use Data::Dumper;

my $sample = q{
    July 12
    Tim
    Jon
    July 13
    James
    Eric
    Jerry
    Susie
    July 14
    Kami
    Darryl
};

my $names = scraper {
    process '//h4[@class="bla" and . = "July 12"]', 'dates[]' => scraper {
        process 'p', 'name' => 'TEXT';
    };
};

my $res = $names->scrape( $sample );
print Dumper $res;

##

##

$VAR1 = {
          'dates' => [
                       {}
                     ]
        };