#!/usr/bin/perl

my $string = "P5§2\nAAA\nBBB\nCCC\nP6§21\n";					

			
$string =~ s/^(P\d+[^\n]*?\n)
			(([^\n]+)
			(\n))+
			(?:P\d+[^\n]*?)$ 
			/$1$2/xsmig;#
			
print "\$string  is \n$string \n";

##</code><code>##

P5º2
CCC

##</code><code>##

P5º2
AAABBBCCC