#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML qw( );

my $file = $ARGV[0];

my $parser = XML::LibXML->new();
my $dom    = $parser->parse_file($file);
my $root   = $doc->documentElement();

for my $psr_node ($root->findnodes('//ParagraphStyleRange')) {
   if ($psr_node->getAttribute('AppliedParagraphStyle') =~ /BODY TEXT/
+) {
      my ($content_node) = $psr_node->findnodes('CharacterStyleRange/C
+ontent')
         or die;
      say $content_node->textContent()
   }
}
[download]