my $links = $mech->find_link(text_regex => qr/Read more/, url_regex => qr{domain\.com} );
for my $link (@$links) {
    ...