- my $link = $m->find_link(text_regex => qr{Begin reading});
- mm_get($m,$link->url_abs());
- while ($m->uri() =~ m{\Q$chapter\E/(\d\d[^\/]*)/?$}) {
- my $image = $m->find_image(alt_regex => qr{Loading\.+\s+(media|img)});
+ # my $link = $m->find_link(text_regex => qr{Begin reading});
+ # print $m->content();
+ # exit 0;
+ # mm_get($m,$link->url_abs());
+ print $m->uri()."\n";
+ while ($m->uri() =~ m{\Q$chapter\E/?(\d\d[^\/]*)?/?$}) {
+ my $image = $m->find_image(alt_regex => qr{ - Page \d+});
+ print $image->url_abs()."\n";