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

my $sample = q{
    <h4 class="bla">July 12</h4>
    <p>Tim</p>
    <p>Jon</p>
    <h4 class="bla">July 13</h4>
    <p>James</p>
    <p>Eric</p>
    <p>Jerry</p>
    <p>Susie</p>
    <h4 class="date">July 14</h4>
    <p>Kami</p>
    <p>Darryl</p>
};

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

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