on *:sockread:111111:{
  if ($sockerr) return
  var %s
  while ($sock($sockname).rq) {
    sockread %s
    if ($sockbr == 0) return
    if ($regex(%s, /<h1.... /) { sockmark $sockname .... }
    else { echo -s %s }
  }
}