my $parser = HTML::TokeParser->new( \$google_results );
my @links_found;
while ( my $token = $parser->get_tag( 'a' ) ) {
  my $url = $token->[ 1 ]{ href };
  next unless $url =~ m{^http://www\.};
  push @links_found, $url;
}
print "$_\n" for @links_found;
__END__
http://www.ets.org/toefl/
http://www.ets.org/testcoll/
http://www.test.com/