alias noktala { 
  var %getvar = $strip($1-), %retvar = $null, %i = 1
  while $iif($regex(%getvar,\.),$gettok(%getvar,%i,46),$gettok(%getvar,%i,32)) {
    var %fmatch = $ifmatch
    var %rf = $iif($len(%fmatch) <= 5,3,$rand(3,5))
    %retvar = $+(%retvar,$chr(32),$left(%fmatch,%rf),$str(.,$calc($len(%fmatch) - %rf)))
    inc %i 1
  }
  return %retvar
}

$noktala($mid($gettok(%temp,4-,32),2,600)