Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias _ { var %:w $replace($1,ı,i,ö,o,ü,u,ğ,g,ü,u,ç,c)
return $replace($1,i,[iİıîİ¡lî1],o,[oÖö@Qô0],u,[uÜüû],e,[e?é£3??ê],a,[a@æãâ],c,[c©Çç],g,[gĞğq],b,[bqßB],f,[fƒ],l,[lLI1İ],n,[nNñÑ],t,[tT™†],s,[sşSŞ$§šŠ],-,[-_=],y,[yY?¥Ÿ],r,[rR®],k,[kKq]) }
on *:input:*:if $regex($1,/^([!.]regex)$/Si) { msg # $iif($regex($2,/([*?%&½=@+~])/Si),hata,$_($2)) }