for my $node ($root->findnodes("//ParagraphStyleRange[fn:contains(@AppliedParagraphStyle, 'BODY TEXT']/CharacterStyleRange/Content")) {
      say $node->textContent()
   }
}