on *:input:*:{

  if ($regex($1-,/^(?!\/|!|\.)/)) { 

    msg $active $regsubex(d,$regsubex(c,$regsubex(b,$regsubex(a,$1-,/([[:punct:]])/g,$+($chr(3), 4, \1, $chr(15))), $&

      /(\S+)/g,$iif($strip(\1) ison # || $strip(\1) = $active, $+($chr(2),$v1,$chr(2)),\1)),/^(\S)/,$upper(\1)),/(\x28|\x29)/g,$+($chr(3),1,\1,$chr(15))) | halt

  }

}