on *:SOCKREAD:pckck*:{
  if ($sockerr) {
    /echo -a Socket error
  }
  var %read
  sockread -f %read
  if (!$sockbr) { return }
  if (<b> isin %read) || (<i> isin %read) {
    set %stats %stats $htmlstrip(%read)
  }
  if (<br> isin %read) {
    set %stats %stats $htmlstrip(%read)
    echo -a %stats
  }
}
alias -l htmlstrip {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $replace($remove(%x,$chr(9)),&nbsp;,$chr(32),&amp;,&,&deg;F,$chr(176) $+ F $+ $chr(32)) 
  return %x 
}