regex 0

писал преобразования «своих» тегов [тег] в теги HTML, должно получиться типа такого:

[b][i]текст[/b] -> [b][i]текст</b></i>[/i][/b]

Собственно говоря функция:

#(\133 = '[' \135 = ] \057=’/')

[b][i]sub text_input_special {
      $_[0]=~s/\133br\135/
\n/g; #[br]->
      $_[0]=~s/\133p\135/
\n/g; #[p]->
      $_[0]=~s/(\133font) ((\w)*="(\w)*")(\135)([\S-\s]*)(\133\057font\135)/<font>$6<\057font>/g; #[font color="red"] oprst [/font]
      $_[0]=~s/(\133b\135)((\w)*)(\133\057b\135)/<strong>$2<\057b>/g; #[b] lala [/b]
      $_[0]=~s/(\133i\135)((\w)*)(\133\057i\135)/<em>$2<\057i>/g; #[i] lala [/i]
 return $_[0];
}
$a= qq([br][p][font color="red"][i][b]oprst[/b][/i][/font]lala\n [b]eprst[/b]lala\n [i]eprst[/i]lala\n[font color="red"]ggg[/font]\n);
print $a;
$a = text_input_special($a);
print $a;[/i][/b]</font></em></strong>

<font>--</font>

<font>Проблема вот в чем: Мне нужно выделить пространство между тегами в переменную(допустим $6). Если я пишу что-то типа ((\w)*), все работает, НО у нас ведь могут быть не только символы типа w. Пишу, не зная что лучше написать вместо этого, например, ([\S-\s]*) (все символы). Все работает неплохо, пока у нас тег встречается 1 раз…</font>

<font>#=======Исходная строка</font>
<font></font>

[b][i]<font>[br][p][font color="red"][i][b]oprst[/b][/i][/font]lala
 [b]eprst[/b]lala
 [i]eprst[/i]lala</font>[/i][/b]

<font>#======результат</font>
<font></font>

[b][i]<font>
<font color="red">[i]<strong>oprst</b>[/i]</font>lala
 <strong>eprst</b>lala
 <em>eprst</i>lala[/i][/b]</strong></font></font></em></strong>

<font><font color=«red»>но когда дублируем тег — получается что-то типа этого:</font></font>

<font><font color=«red»>#=======Исходная строка</font></font>
<font><font color=«red»></font></font>

[b][i]<font><font color="red">[br][p][font color="red"][i][b]oprst[/b][/i][/font]lala
 [b]eprst[/b]lala
 [i]eprst[/i]lala
[font color="red"]ggg[/font]
 [code]
#======результат
 [code]
<font color="red">[i]<strong>oprst</b>[/i][/font]lala
 <strong>eprst</b>lala
 <em>eprst</i>lala
[font color="red"]ggg</font>[/i][/b]</strong></font></font></font></em></strong>
[b][i]<font><font color="red"><font color="red">Собственно вопрос: Как ограничить квантор * и какое выражение с этим квантором лучше использовать?</font></font></font>[/i][/b]