in reply to Finding Data based on attribute help!

This prints 'TQA': 
        print $cid->find('Rule')->string_value, "\n" if $code eq 'Requ
+ired';

[download]

In Section Seekers of Perl Wisdom