For now

Code:
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $replace(%x, ,$chr(32))
  return $remove(%x,$wildtok(%x,*]'>,1,91))
}


im not at home to test the regex query