#!/usr/bin/perl

use XML::LibXML;
use strict;

my $file = $ARGV[0];

my $parser = XML::LibXML->new;
my $dom = $parser->parse_file($file) or die;

sub getInside{
    my $node = shift;
    if ($node->nodeType == 1){
	getInside($node->getFirstChild);
    }
    if ($node->nodeType == 3){
	print "<p>" . $node->data ."</p>\n" ;
    }

}
my @titles = $dom->getElementsByTagName("ParagraphStyleRange");
foreach my $node (@titles){
    if ($node->getAttributeNode("AppliedParagraphStyle")->getValue =~ /BODY TEXT/){
	getInside($node);
    }
}