A simple but fun script, try it out :D

    alias kaas {
      set %kaas 0
      unset %kaas2
      while (%kaas < $len($1-)) {
        inc %kaas
        if ($right($left($1-, %kaas), 1) == $chr(32)) {
          set %randkaas $rand(1,15)
          set %kaas2 %kaas2 $+ $chr(3) $+ %randkaas $+ ,  $+ %randkaas $+ _
        }
        if ($right($left($1-, %kaas), 1) != $chr(32)) {
          set %kaas2 %kaas2 $+ $chr(3) $+ $r(1,15) $+ , $+ $r(1,15) $+ $right($left($1-, %kaas), 1)
        }
      }
      say %kaas2
    }