Регулярные выражения Опции

[Fire73]

Ребят, такая ситуация, такой скрипт.

В текстовом документе REG.txt следующее:
@Zolotoy Serebro Bronza

Код

load_array %arr C:\Users\REG.txt
//log %arr [1]   // первая строка из файла
//log %arr [2]   // вторая

log clear
log mode compact

set $regexp "[^ ]+"
set #n regexp (#pos $one %arr[1] $regexp)  // поиск в строке любого текста до пробела
if  #n = 1
end_if

set $regexp "(?<= )[^ ]+"
set #n regexp (#pos $two %arr[1] $regexp)  // поиск в строке текста после пробела
if  #n = 1
end_if

set clipboard $two
sendex ^v

Вопрос:
1) $two в моем случае это - Serebro, но как сделать так, чтобы к слову генерировался дополнительный случайный символ, чтобы, например, в итоге получилось Serebrom, Serebroz...?
2) Какое составить регулярное выражение, чтобы к 3 слову в REG.txt было тоже присвоено имя #three

[FREEON]

Вот еще задачка. нужно найти все комментарии однострочные и многострочные, но данная регулярка не совсем корректно находит многострочные комментарии. Всего комментариев 7(для наглядности в тексте примера их пронумеровал и отметил жиром) из них: 5 однострочных и 2 многострочных
Вот рег: <!--(.+|(.|\s)*)-->
Вот пример текста:
<!--1 однострочный коментарий-->
текст <!-- 2 Это -- комментарий -->
текст
<!-- 3 многострочный
коментарий
текст какой-то--> текст
Эт0
к0д
какой-то
<!-- 4
это еще один
ногострочный
коментарий
--> текст
<!-- 5 это считается коментарием <!-- и это коментарием --> а этот текст уже нет-->
<!-- 6 --><!--7-->

[Fors1k]

Вот еще задачка. нужно найти все комментарии однострочные и многострочные, но данная регулярка не совсем корректно находит многострочные комментарии. Всего комментариев 7(для наглядности в тексте примера их пронумеровал и отметил жиром) из них: 5 однострочных и 2 многострочных
Вот рег: <!--(.+|(.|\s)*)-->

Вот пример текста:

<!--1 однострочный коментарий-->
текст <!-- 2 Это -- комментарий -->
текст
<!-- 3 многострочный
коментарий
текст какой-то--> текст
Эт0
к0д
какой-то
<!-- 4
это еще один
ногострочный
коментарий
--> текст
<!-- 5 это считается коментарием <!-- и это коментарием --> а этот текст уже нет-->
<!-- 6 --><!--7-->

Код

log clear_current
log mode compact
load_array %a "C:\qwe.txt"
set $rgxp1 "<!--.*?(-->|$)(?!.*(?=<!--))"
set $rgxp2 "^.*?-->(?!.*(?=<!--))"

for #i 1 size(%a)
    if regexp(#p $a %a[#i] $rgxp1)
        log $a
        while copy($a eval(size($a)-2) 3) != -->
            set #i #i + 1
            set #n regexp(#p $a %a[#i] $rgxp2)
            if copy($a eval(size($a)-2) 3) = -->
                log $a
                break
            else
                log %a[#i]
            end_if
        end_while
        log
    end_if
end_for

log save_current C:\qwe_result.txt
exec notepad "C:\qwe_result.txt"
end_script