<p>Тогда забыть про регэкспы. Это почти как парсинг html -- в общем случае регэкспами не парсится.</p>
<div class="gmail_quote">On 11 Jun 2011 09:11, "Aleksander Gorohovski" <<a href="mailto:angel@feht.dgtu.donetsk.ua">angel@feht.dgtu.donetsk.ua</a>> wrote:<br type="attribution">> On Sat, 11 Jun 2011 10:03:11 +0300, Andrei wrote:<br>
> <br>>> @str = map { $_ . '{' } grep {defined $_} split /{/, $str;<br>>><br>>> Как-то так...<br>> <br>> К сожалению не всё так просто,<br>> в 'any symbols' of $str могут быть вложенные парные<br>
> фигурные скобки {}<br>> :(<br>> т.е.<br>> $str = '{any {symbols}}{{any} symbols}1...'<br>> <br>> out:<br>> {any {symbols}}<br>> {{any} symbols}1<br>> ...<br>> -- <br>> Moscow.pm mailing list<br>
> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org">http://moscow.pm.org</a><br></div>