#!perl
use strict;
use XML::Twig;
my $xml = do { local $/; };
my $twig = new XML::Twig(
twig_handlers =>{ li => \&li},
);
$twig->parse($xml);
sub li {
my ($t,$elt) = @_;
print $elt->text;
if ( $elt->parent('p[@conref != ""]') ){
print " yes\n";
} else {
print " no\n";
}
}
__DATA__