<div><div># code >></div><div>    my @chanks;</div><div>    my $x = "{bla1 {bl}a2} }".</div><div>            "{bla3 {b{la4} }".</div><div>            "{{bla5 {bla6} }bla7}".</div><div>            "{{bla8 {bla9} }bla10}";</div>
<div>            </div><div>    $x =~ /^</div><div>        (\{.+?\}(?=\{))</div><div>        </div><div>        (</div><div>         (?: (?<=\}) \{.+?\}(?=\{) ) (?{ push @chanks, $2 if $2; }) | (?{ push @chanks, $2; })</div>
<div>        )+</div><div>        </div><div>        (\{.+?\}\z)</div><div>    /x;</div><div>    </div><div>    print join "\n", $1, @chanks, $3;</div><div>#<< code</div></div><div><br></div><div>результат:</div>
<div><br></div><div>{bla1 {bl}a2} }</div><div>{bla3 {b{la4} }</div><div>{{bla5 {bla6} }bla7}</div><div>{{bla8 {bla9} }bla10}</div><br><div class="gmail_quote">11 июня 2011 г. 12:15 пользователь Aleksander Gorohovski <span dir="ltr"><<a href="mailto:angel@feht.dgtu.donetsk.ua">angel@feht.dgtu.donetsk.ua</a>></span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="im">On Sat, 11 Jun 2011 11:01:41 +0300, Николай Мишин <<a href="mailto:mi@ya.ru" target="_blank">mi@ya.ru</a>> wrote:<br>

<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Все таки, по хорошему, покажите весь текст исходный и что должно быть на выходе, постановка задачи не ясна<br>
</blockquote>
<br></div>
Конкретно будет так:<br>
<br>
$_ = '{any{symbols}}{{any}symbols}1{{any}2{symbols}}33';<br>
<br>
out array:<div class="im"><br>
<br>
{any{symbols}}<br>
{{any}symbols}1<br></div>
{{any}2{symbols}}33<br>
<br>
где 'any symbols' --- \w \d () [] {}<br>
без пробелов.<br><font color="#888888">
-- <br></font><div><div></div><div class="h5">
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br>