$_="
Blah
junk
.PP
blah more stuff
.PP
boo
razz
";
print $1 if /^(\.PP.*?\n.*?\n\.PP)/m;
#prints
.PP
blah more stuff
.PP