use 5.010;
use XML::LibXML 1.94;

my $xml = XML::LibXML->load_xml(IO =>\*DATA);

foreach my $element ($xml->findnodes("/a/*"))
{
	say "Got ", $element->tagName;
	if ($element->tagName eq 'b')
	{
		say "  type is ", $element->{type};
	}
}

__DATA__
<a>
	<b type="1"/>
	<b type="2"/>
	<c/>
	<b type="3"/>
</a>