open infile,$filepath;
my $Block;
while (<infile>) {
 if (/\<ppsarticle\>) {
  &Parse_XML($Block);
  undef $Block;
 }
 $Block .= $_;
}
&Parse_XML($Block); # Don't forget last block