foreach () { chomp; my $googleSearch = SOAP::Lite -> service("file:GoogleSearch.wsdl"); my $result = $googleSearch -> doGoogleSearch($key, $_, 0, 10, "false", "", "false", "lang_es", "latin1", "latin1"); my $hitCount = qq{$result->{'estimatedTotalResultsCount'}}; print "$_ returns about $hitCount hits.\n"; if ($hitCount > 200) { print OUTFILE "$_ returns about $hitCount hits.\n"; } }