on *:input:*: { if ($mouse.key & 2) || !$regex($1,^\/) { say $replacecs($regsubex($1-,/(^.)/, $upper(\1)),ç,c,ı,i,ş,s,ğ,g,ö,o,ü,u,<,«,>,») halt } }