Названия объектов при копировании

К примеру, мне надо скопировать объекты, которые называются следующим образом:
Body01 - Hand(Right)
Body01 - Hand(Left)
Body01 - Leg(Right)
Body01 - Leg(Left)

Как при копировании объектов оставить неизменной правую часть названия (после дефиса), а заменить только левую часть (Body01) на какое-то уже известное слово?

Я понимаю, что каким-то образом надо применить методы substring и replace, но как это правильно сделать - не знаю..
Помогите, плиз, господа скриптеры!

 

[Savin Denis]

fn prefReplace str pref =(
sptr = findString str "-"
if sptr != undefined then
str = pref + substring str sptr -1
(str)
)

-- Example
prefReplace "Body01 - Hand(Right)" "Body22 "

 

СПАСИБО!
Но у меня по ходу возник ещё вопрос - после копирования эти объекты оказываются не выделенными, как мне выделить все полученные объекты и применить ко всем им одновременно эту функцию? По шаблону имени выделять нельзя, т.к. в сцене присутствуют ещё объекты, в названии которых есть слово "Body01"...

 

[Savin Denis]

new = #()
for s in $selection do append new (copy s name: (prefReplace s.name "Body22 "))

 

СПАСИБО!