#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $search = 'perlmonks';

my $ua = LWP::UserAgent->new;

$ua->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Fire
fox/2.0.0.3"
);
my $req =
  HTTP::Request->new( GET =>
      "http://www.google.com/search?hl=en&num=100&q=$search&btnG=Google+Search"
  );
$req->content_type('application/x-www-form-urlencoded');
my $res = $ua->request($req);

my $data;

if ( $res->is_success ) {
    $data = $res->content;
}
else {
    print $res->status_line;
}

my @links = $data =~ m/\<a href(.*)\<\/a\>/gs;

foreach my $link (@links) {
#    if ( $link =~ /google/i ) {
#        next;
#    }
#    else {
        print $link . "this matched\n";
 #   }
}