#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML;
use XML::LibXML::XPathContext;

my $parser = XML::LibXML->new();
my $doc    = $parser->parse_fh(\*DATA);

my $xc     = XML::LibXML::XPathContext->new( $doc->documentElement() );
$xc->registerNs( text => 'urn:oasis:names:tc:opendocument:xmlns:text:1.0' );

my $xpath = q{//text:p[@text:style-name="VariableTextSurname"]};
foreach my $p ($xc->findnodes($xpath)) {
    print "Found a variable para\n  " . $p->to_literal . "\n";
    # could do e.g.:  $p->parentNode->removeChild($p);
}

# After manipulations, serialise back to XML with:
# my $xml = $doc->toString();

exit;

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<office:document-content
  xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"
  xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0"
  xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0"
  xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0"
  xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0"
  xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0"
  xmlns:xlink="http://www.w3.org/1999/xlink"
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0"
  xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0"
  xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0"
  xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0"
  xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0"
  xmlns:math="http://www.w3.org/1998/Math/MathML"
  xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0"
  xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0"
  xmlns:ooo="http://openoffice.org/2004/office"
  xmlns:ooow="http://openoffice.org/2004/writer"
  xmlns:oooc="http://openoffice.org/2004/calc"
  xmlns:dom="http://www.w3.org/2001/xml-events"
  xmlns:xforms="http://www.w3.org/2002/xforms"
  xmlns:xsd="http://www.w3.org/2001/XMLSchema"
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  xmlns:rpt="http://openoffice.org/2005/report"
  xmlns:of="urn:oasis:names:tc:opendocument:xmlns:of:1.2"
  xmlns:rdfa="http://docs.oasis-open.org/opendocument/meta/rdfa#"
  xmlns:field="urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:field:1.0"
  xmlns:formx="urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:form:1.0"
  office:version="1.2"
><office:scripts
/><office:font-face-decls
><style:font-face style:name="Times New Roman" svg:font-family="&apos;Times New Roman&apos;" style:font-family-generic="roman" style:font-pitch="variable"
/><style:font-face style:name="Arial" svg:font-family="Arial" style:font-family-generic="swiss" style:font-pitch="variable"
/><style:font-face style:name="DejaVu Sans" svg:font-family="&apos;DejaVu Sans&apos;" style:font-family-generic="system" style:font-pitch="variable"
/></office:font-face-decls
><office:automatic-styles
/><office:body
><office:text
><text:sequence-decls
><text:sequence-decl text:display-outline-level="0" text:name="Illustration"
/><text:sequence-decl text:display-outline-level="0" text:name="Table"
/><text:sequence-decl text:display-outline-level="0" text:name="Text"
/><text:sequence-decl text:display-outline-level="0" text:name="Drawing"
/></text:sequence-decls
><text:p text:style-name="Standard"
>Paragraph One</text:p
><text:p text:style-name="VariableTextSurname"
>Paragraph Two</text:p
><text:p text:style-name="Standard"
>Paragraph Three</text:p
></office:text
></office:body
></office:document-content
>