on *:input:*:if $left($1,1) != / { msg $active $+($replace($regsubex($1-,/^([a-zçüşğö])/,$upper(\1)),l,L),.) | halt }