Steiner

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:text:!gogle*:#:{
  /sockopen gogle www.google.be 80
}
on *:SOCKOPEN:gogle:{
  /sockwrite -nt $sockname GET /
/sockwrite -n $sockname Host: www.google.be }
on *:sockread:gogle:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    if (size=-1>Google.be aangeboden in: <a href="http://www.google.be/fr">Français</a>  <a href="http://www.google.be/de">Deutsch</a>  <a href="http://www.google.be/en">English</a> </font><br><br><br><font  iswm %temptext) {
      /msg $chan -
      /msg $chan $htmlfree(%temptext)
    }
  }
}