[Closed] finding an unknown part of the name, etc. how can I do?

 secimname = $'Kontrol_yüz kontrol textsR001'.name as 
stringstream
  secimisim=#()
  count=1
 
  while 
not eof secimname do
  (
  secimisim[count]=readchar 
secimname
  count +=1 
  )
  atoplam 
= secimisim.count - 
22
  askon=#()
  askon[atoplam+1]=(secimisim[secimisim.count-2] 
as integer)
  askon[atoplam+2]=(secimisim[secimisim.count-1] as 
integer)
  askon[atoplam+3]=(secimisim[secimisim.count] as 
integer)
  for o in 1 to atoplam 
do
  (
  askon[o]=(secimisim[o] as 
string)
  )
 
  askontoplam=for i in 1 
to atoplam collect askon[i] as 
string
 
  askona = ((askontoplam as 
string)+"_yüz kontrol textsR" +( askon[atoplam+1]as string +askon[atoplam+2] as 
string+askon[atoplam+3] as string))
  askona 

output : “#(“K”, “o”, “n”, “t”, “r”, “o”, “l”)_yüz kontrol textsR001”
but I want to like it: “Kontrol_yüz kontrol textsR001”