perl -p0777 -e 'print "<<$1>>\n" while /(.*?(?:pp\..*?\n))/gs' 708496.pl

##</code><code>##

perl -n0777 -e 'print "<<$1>>\n" while /(.*?(?:pp\..*?\n))(?=[A-Z])/gs' 708496.pl