on *:input:*:{ 
  if $left($1,1) != / { 
    msg $active $regsubex($1-,/(\S+)/g,$+($replace($upper($replacecs($left(\1,1),i,İ,I,ı)),ı,I),,$mid(\1,2-),))
    halt 
  } 
}