$ perl -Mojo -le " my $dom = x(b(q{2.html})->slurp); for my $img ( $dom->find(q{h1 ~ img})->each ){ print $img->attr(q{src});  } "
333
444