#!/usr/bin/env perl
use warnings;
use strict;
use open qw/:std :utf8/;
use XML::LibXML;

my $dom = XML::LibXML->load_xml( location => 'in.xml' );
for my $node ($dom->findnodes('//test')) {
	my $text = $node->textContent;
	print "Before: $text\n";
	$text =~ s/\p{Blk=CJK}//g;
	print "After: $text\n";
}
#$dom->toFile('out.xml', 1);