my $title = Raumchemie der festen Stoffe $mech->get( "http://scholar.google.it/scholar?q=" . $title ); $mech->follow_link( url_regex => qr/cites/i, n => 1 ); my $result = $mech->content; my $indi = $mech->uri(); my $rest = $out->scrape( $result, $indi ); #~ dd( $result, $rest ); dd( $rest ); print F3 $rest; for my $i (2..200) { my $ii = $i . "0"; print "page : ".$i."\n"; $mech->follow_link( text_regex => qr/Next$/)or die("finished on page : ".$i."\n"); my $result = $mech->content; my $indi = $mech->uri(); my $rest = $out->scrape( $result, $indi ); #~ dd( $result, $rest ); dd( $rest ); print F3 $rest; sleep(5); }