on *:input:#:{
  if !$istok(/ ! ., $left($1-,1), 32) {
    msg # $regsubex($1-,/(\S+)/g, $iif(\1 ison #, $+($chr(2),\1,$chr(15)), \1))
    halt
  }
}

Ay?se, Fat!ma, seh[]er, ahmet, meric, kull,
Abuzer, Kamil, Selami, Ahmet, Mehmet,
Tutsak_SerSery, Amacim_yasamak, ArtiSt_KıZ, SeVimLi-KeLeBeK, Umutlu

Ayse
Fatma
seher
ahmet
meric
kull
Abuzer
Kamil
Selami
Ahmet
Mehmet
TutsakSerSery
Amacimyasamak
ArtiStKıZ
SeVimLiKeLeBeK
Umutlu

alias x4 {
  var %x = 1
  while %x <= $lines($1) {
    var %z = 1, %c = $regsubex(c,$read($1,%x),/[[:punct:]\d]/g,)
    while %z <= $numtok(%c,32) {
      echo -a $token(%c, %z, 32)
      inc %z
    }
    inc %x
  }
}

Ahmet
Beser
Canik
ceyhun
Deniz
Emre
Fero
Aydın
Bukelamun
ceanim

alias x4 {
  window -h @x
  var %x = 1
  while %x <= $lines($1) {
    var %z = 1, %c = $regsubex(c,$read($1,%x),/[[:punct:]\d]/g,)
    while %z <= $numtok(%c,32) {
      echo @x $token(%c, %z, 32)
      inc %z
    }
    inc %x
  }
  filter -cwft 1 32 @x nick4.txt 
  timer 1 2 x0
}

alias x0 {
  var %d = 1
  while %d <= $lines(nick4.txt) { 
    echo -a $read(nick4.txt,%d)
    inc %d 
  }
  window -c @x
}

Ay?se, Fat!ma, seh[]er, ahmet, meric, kull,
Abuzer, Kamil, Selami, Ahmet, Mehmet,
Tutsak_SerSery, Amacim_yasamak, ArtiSt_KıZ, SeVimLi-KeLeBeK, Umutlu

Abuzer
ahmet
Ahmet
Amacimyasamak
ArtiStKıZ
Ayse
Fatma
Kamil
kull
Mehmet
meric
seher
Selami
SeVimLiKeLeBeK
TutsakSerSery
Umutlu

on *:input:#Op:{
  if !$regex($1,/^[!\/\.]/) { 
    msg # $regsubex($1-,/(\S+)/g, $iif(\1 ison #,$+($chr(40),$chr(32),$chr(3),4,\1,$chr(3),$chr(32),$chr(41)),\1))
    halt
  }
}

[00:44:05] <02Toprak> deneme ( 4Toprak ) ( 4Feragat ) ( 4srjn ) :D