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