my $xml_fragment = <records>
                         <record id="001">foo</record>
                         <record id="002">bar</record>
                       </records>;
    my @nodeset = $xml_fragment =~ qx!//records[@id = '001']!;
    die "ids should be unique!\n" if @nodeset > 1;