Суть проблемы:
есть такой текст:
test1
test2
<pre>
test3
test4
</pre>
test5
test6
<pre>
test7
test8
</pre>
test9
test10

Нужно чтобы в конце строки стояли <br>, но только в тех случаях, когда этот текст не помещен между <pre></pre>. Объединяю строки в одну переменную через join("<br>", @input). Теперь нужно удалить <br> между <pre></pre>. Делаю
s/(?<=.*?<pre>)<br>(?=.*?<\/pre>)//sg.
Но перл поддерживает позитивный просмотр назад только с "fixed-regexp", т.е. никаких ".*?" при "(?<=". Как быть? Может есть другой вариант? 

Это сообщение отредактировал(а) alezzz - 19.1.2011, 20:33

s!<pre>(.*?)</pre>!"<pre>".cut($1)."</pre>"!ge
sub cut{
 my $f = shift;
 $f =~ s/<br>//g;
 return $f;
}

Специально для тех, кто хотел это сделать именно регуляркой

То что надо.   . Об этом я не подумал.