on @*:text:*:#:{
  if ($regex($1-,/.*?([.]{1,20}\W*[cC]{1,20}\W*[oO]{1,20}\W*[mM]{1,20})/)) {
     BU BOLUMDE KOMUTLARI UYGULA
  }
  if ($regex($1-,/.*?([.]{1,20}\W*[nN]{1,20}\W*[eE]{1,20}\W*[tT]{1,20})/)) {
     BU BOLUMDE KOMUTLARI UYGULA
  }
  if ($regex($1-,/.*?([wW]{1,20}\W*[wW]{1,20}\W*[wW]{1,20}\W*[.]{1,20})/)) {
    BU BOLUMDE KOMUTLARI UYGULA
  }
  if ($regex($1-,/.*?([.]{1,20}\W*[oO]{1,20}\W*[rR]{1,20}\W*[gG]{1,20})/)) {
    BU BOLUMDE KOMUTLARI UYGULA
  }
}