Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $regex(x,$remove($1-,$chr(44),.,!,?,:,$chr(41),;),/(^|\s) $+ $kfrlr $+ (\s|$)/Si) {
Bu kısmı $read ile değiştirirsen muhtemelen çalışacaktır. Kendi kullandığın küfür korumasındaki belirttiğim kısım ile değiştirebilirsin.
Dosyadan okumalı yaptığında ise alt kısımda bulunan echo kıısımlarını değişmen gerekecek yakalanan değeri göstermek için.