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

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

#!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;
}

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