on *:input:*:if $left($1,1) != / { msg $active $regsubex($1-,/([.:&,;?])/g,$+(04,\1,)) | halt }