on *:input:*:if $regex($1-,^[^/]) { msg $active  $replacecs($regsubex($1-,/(^\S)/, $upper(\1)), s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$, I,i) $+ . | halt }