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