Hi! I have this html stripper a friend made for me. It's pretty cool but there are a few flaws. Wondered if anyone could help me.

What it does wrong is removes any text after a comma. For instance ...

Testing, and more testing.

This would return: Testing

Can someone either help me with this or provide a better html stripper? thanks!

Code:
hst {
  ;----Basics by an unknow author(thanks alot!!)
  var %x, %y = $regsub($replace($1,<br>,$lf),/^[^<]*>|<[^>]*>|<[^>]*$/g,,%x), %ht = html $+ $ticks, %bd = body $+ $ticks
  if ($prop == rem) { !.echo -q $regsub(%x,/&\S+?;/g,,%x) | return %x }
  if (!$regex(%x,/&\S+?;/)) return %x
  ;%x = $replace(%x,)
  .comopen %ht htmlfile
  if ($comerr) return %x
  %x = $com(%ht,write,1,bstr*,$+(<html><body>,%x,</body></html>))
  %x = $com(%ht,body,2,dispatch* %body) $com(%bd,innertext,2)
  %x = $com(%bd).result
  if ($com(%bd)) .comclose %bd
  if ($com(%ht)) .comclose %ht
  return %x
}