Select Code to Download

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