下のコードはgoogleに怒られる？

for (@addr) {
my $addr = jcode($_)->utf8;
$addr =~ s/(\W)/'%' . unpack('H2', $1)/eg;
my $res = get("http://maps.google.co.jp/maps?q=$addr";);

if($res =~ /center: {lat: (.*?),lng: (.*?)}/si){
my ($lat, $lng) = ($1, $2);
}
}