#!/usr/bin/perl
use warnings;
use strict;

use XML::Twig;

my $xml = XML::Twig->new(
    twig_handlers => { 'text:bookmark' => \&handler_bookmark } );

$xml->parse(\*DATA);

print qq(\n\n);
# $xml->print;

exit(0);

sub handler_bookmark {
    my ($twig, $bookmark)= @_;

    $bookmark->parent->print;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<text:h text:style-name="P900" text:outline-level="3">
BEFORE<text:bookmark text:name="_asdfqwerzxcv"/>Foo bar
</text:h>

##</code><code>##

<text:h text:outline-level="3" text:style-name="P900">
BEFORE<text:bookmark text:name="_asdfqwerzxcv"/></text:h>