...
my $rxBetween = qr
   {(?x)
       (?<=($rxClose))
       ($rxOpen)
       (?{print qq{Match @{ [++ $count] }: on left $1, on right $2\n}})
   };
...
$string =~ s{$rxBetween}{+$2}g;
...