Mine

on *:TEXT:*Health*:%bot.chan: { 
  set %pinhealth $strip($1-,cb)
  msg %bot.chan %pinhealth
  msg %bot.chan $gettok(%pinhealth,3,32)
  var %temp = $gettok(%pinhealth,3,32)
  var %temp2 = $remove($gettok(%pinhealth,3,32), $+ $chr(40) $+ , $+ $chr(41) $+ , $+ $chr(91) $+ , $+ $chr(93) $+ ,R,:)
  var %temp3 = $left(%temp2,3)
  msg %bot.chan %temp and %temp2 and %temp3
}