use XML::LibXML qw();
my $dom = XML::LibXML->load_xml(string => \<<'XML');
<drl connectionid="foobar" />
XML

for my $node ($dom->findnodes('//drl[@connectionid]')) {
    print $node->getAttribute('connectionid');
}