use strict; use warnings; use XML::TreeBuilder; my $root = XML::TreeBuilder->new; my $xml = do {local $/; }; $root->parse ($xml); my @elements = $root->find ('FormattedReportObjects'); print $_->as_text () . "\n" for @elements; ##

##

  
__DATA__

        Subreport1                                                       Subreport2                             Field4 System lgloe040 System lgloe040                 Field5 Type LOG Type LOG                 Field6 \ \    Field10 C:\abc\ C:\abc\    Field16 weru3453.log weru3453.log    Field15 4 4    Field8 12/12/2005 12/12/2005    Field9 12/12/2005 12/12/2005    Field11 12/12/2005 12/12/2005                   Field6 \ \    Field10 C:\abc\ C:\abc\    Field16 sdfsdfs.log sdfsdfs.log    Field15 4 4    Field8 12/12/2005 12/12/2005    Field9 12/12/2005 12/12/2005    Field11 12/12/2005 12/12/2005                  Field24 8 8                  Text10 System Total    Field17 8 8                  Text11 Report Total    Field25 8 8             
##

##

   Subreport1                                                





   Subreport2               
   Field4 System lgloe040 System lgloe040   
   Field5 Type LOG Type LOG   
   Field6 \ \    Field10 C:\abc\ C:\abc\    Field16 weru3453.log weru3453.log    Field15 4 4    Field8 12/12/2005 12/12/2005    Field9 12/12/2005 12/12/2005    Field11 12/12/2005 12/12/2005   
   Field6 \ \    Field10 C:\abc\ C:\abc\    Field16 sdfsdfs.log sdfsdfs.log    Field15 4 4    Field8 12/12/2005 12/12/2005    Field9 12/12/2005 12/12/2005    Field11 12/12/2005 12/12/2005   
   Field24 8 8   
   Text10 System Total    Field17 8 8   
   Text11 Report Total    Field25 8 8