If it was me, I would generate the URLS with a loop too since, there is an awful lot of duplicated code.

my @urls;
my $search = 'whatever';

for my $index(0..19){
    push @urls, 'http://www.google.com/search?q='.$search.'&num=50&hl=
+en&lr=&safe=off&start='.($index * 50).'&sa=N';
}
[download]