on *:input:*:if $left($1,1) != / { msg $active $regsubex($regsubex($1-,/(?<=^|\s)(.)/g,$upper(\1)),/(.)/g,$iif(2 \\ \n,$+(10,\1,14),\1)) | halt }