Select Code to Download

for my $e ($dom->find('span')->each) {
  if($e->text =~ /$mydate/ ){
...
    # do stuff with $myhtml
  }
}

#!/usr/bin/env perl
use Modern::Perl;
...
die "Couldn't get page" unless $page;
my( $assignment ) = $page =~ m{ $date .+? <span .+?>(.+?)</span>\s*</p
+> }sx;
say $assignment;