<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
use XML::DT ;
my $filename = "ex8.xml";;

# tests number comparasion and string-length function


%handler=(
	  '-inputenc' =&gt; 'ISO-8859-1',
	  '//*[string-length(name())&amp;lt;2]' =&gt; sub{
	    print "$c\n";toxml
	  },
	 );
pathdt($filename,%handler);
print "\n";
</pre></body></html>