on *:input:#:{
  if $left($1,1) != / { 
    msg $chan 06  $+ $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),$+($upper($left(\1,1)),$mid(\1,2-)))) 
    halt
  }
}