#!/usr/bin/perl 

use strict;
use warnings;

use Test::More tests => 1;
use XML::Twig;

my $doc='<paragraph> Some <bold>text</bold> here which may be any <bold>length</bold> and <bold>contain</bold> a number of child tags.</paragraph>';
my $expected= '<paragraph> Some <bold>text</bold> here which <bold>may</bold> be any <bold>length</bold> and <bold>contain</bold> a number of <bold>child</bold> tags.</paragraph>';

my $t=XML::Twig->new->parse( $doc);

$t->root->mark( qr/(may|child)/, 'bold');

is( $t->sprint, $expected, 'simple replace');