<div>ðÒÏÓÔÉÔÅ, ÎÅ ÕÞÅÌ ×ÏÚÍÏÖÎÏÓÔØ ÐÒÉÓÕÔÓÔ×ÉÑ ÃÉÆÒ ÐÏÓÌÅ ÓËÏÂÏË, ×ÏÔ ÔÁË ËÁÖÅÔÓÑ ÒÁÂÏÔÁÅÔ:</div><div><br></div><div>šš šmy @chanks;</div><div>šš šmy $str = "{bla1 {bl}a2} }123".</div><div>šš š š š š š"{bla3 {b{la4} }123".</div>
<div>šš š š š š š"{{bla5 {bla6} }bla7}".</div><div>šš š š š š š"{{bla8 {bla9} }bla10}123";</div><div>šš š</div><div>šš š$str =~ /^</div><div>šš š š š((?: \{.+?\}\d* )(?=\{))</div><div>šš š š š</div><div>
šš š š š(</div><div>šš š š š (?: \{.+?\}\d*(?=\{) ) (?{ push @chanks, $2 if $2; })</div><div>šš š š š)+</div><div>šš š š š</div><div>šš š š š(\{.+?\}\d*\z)</div><div>šš š/x;</div><div>šš š</div><div>šš šprint join "\n", $1, @chanks, $2 , $3;</div>
<br><div class="gmail_quote"><br></div>