Вложеное регулярное выражение

[zhukovia]

Допустим есть строка вида:

<p>привет</p> &p_not& <p>привет1</p> <p>привет2</p> &p_not& <p>привет10</p>

Можно ли как то составить регулярное выражение чтобы удалить все теги <p> и </p> заключенные между &p_not& (удалить вместе с &p_not&), но при этом оставить <p> и </p> которые не входят в "скобки" &p_not&? Текст может быть очень длинным и "скобок" &p_not& может быть не одна. Есть ли вообще такая возможность?

[iborisov]

Если я правильно понял, что нужно, то вот так, вроде бы, должно работать:

s/&p_not(.*?)p_not&//gs

[zhukovia]

Сообщение от iborisov

Если я правильно понял, что нужно, то вот так, вроде бы, должно работать:

s/&p_not(.*?)p_not&//gs

Нет это не то. При этом удалится все что находиться внутри &p_not&, а надо удалить только тэги <p>. Результат должен быть таким

<p>привет</p> привет1 привет2 <p>привет10</p>

[zhukovia]

На другом форуме предложили решение, но оно работает если только одна строка.

#!perl
 
use strict;
use warnings;
 
my $txt = '<p>привет</p> &p_not& <p>привет1</p> <p>привет2</p> &p_not& <p>привет10</p> &p_not& <p>привет1</p> <p>привет2</p> &p_not& <p>привет11</p>';
 
$txt =~ s/((&p_not&)(.+?)\2)/@{[func($3)]}/mg;
 
print "$txt\n";
 
sub func {
    my $txt = shift;
    $txt =~ s/<\/?p>//mg;
    return $txt;
}

[zhukovia]

Вот рабочий вариант.

s {(&p_not&)(.+?)\1}{($x=$2)=~s[</?p>][]mgs; $x }mgse