use strict;use warnings;use LWP::Simple;use Encode qw/from_to/;use JSON::Syck;my $response = get("http://ajax.googleapis.com/ajax/services/search/web?v=1.0&rsz=large&hl=ja&q=KUMA%20TYPE");my $data = JSON::Syck::Load($response);foreach (@{$data->{responseData}{results}}){ from_to($_->{title}, 'utf8' ,'shift-jis'); from_to($_->{titleNoFormatting}, 'utf8' ,'shift-jis'); from_to($_->{content}, 'utf8' ,'shift-jis'); print "-----------------","\n"; print "GsearchResultClass",$_->{GsearchResultClass},"\n"; print "unescapedUrl:",$_->{unescapedUrl},"\n"; print "url:",$_->{url},"\n"; print "visibleUrl:",$_->{visibleUrl},"\n"; print "cacheUrl:",$_->{cacheUrl},"\n"; print "title:",$_->{title},"\n"; print "titleNoFormatting:",$_->{titleNoFormatting},"\n"; print "content:",$_->{content},"\n";}Web::Scraperを使った例はこちら（Google検索結果数をまとめて収集するPerlスクリプト）にあります。リンクにある例は、検索結果のヒット数を調べるものです。しかし、55行について”Use of uninitialized value in join or string”というエラーがありました。
参考リンク
Google AJAX Search APIをperlから使う
