on $*:text:/^!(google)\s(.+)/iS:#:{
  if (!%p) {
    inc -u4 %p
    if ($sock(google)) sockclose google
    sockclose google
    sockopen google www.google.com 80
    sockmark google $replace($regml(2),$chr(32),+) .msg # 12G4o8o12g3l4e15 Search Result:3
  }
}
on *:sockopen:google:{
  sockwrite -n $sockname GET $+(/search?hl=iw&q=,$token($sock(google).mark,1,32)) HTTP/1.1
  sockwrite -n $sockname Host: www.google.com
  sockwrite -n $sockname $crlf
}
on *:sockread:google:{
  if (!$sockerr) {
    var %google | sockread %google
    if ($regex($remove(%google,<a href="/url?q=,</b>,</a>,</span>,<b>),/<cite>(.*?)</cite>/)) && ($regex($regsubex($regml(1),/<[^>]*>,),/(www.*|http:.*)/)) {
      $token($sock(google).mark,2-7,32) $remove($regml(1-4),&amp,&) | sockclose $sockname
    }
  }
}