Mhm;

backwards {
  var %x = 1
  while %x <= $len($1-) {
    var %bkw = $+($iif($mid($1-,%x,1) == $chr(32),[\\^/],$v1),%bkw)
    inc %x
  }
  return $replace(%bkw,[\\^/],$chr(32))
}

:)