on *:input:*:{
  if ($regex($1-,/^(?!\/|!|\.)/)) { 
    msg $active $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)) | halt
  }
}