use XML::LibXML; my $parser = XML::LibXML->new(); my $doc = $parser->parse_string( do{ local $/; } ); for my $button ( $doc->findnodes("//button") ) { print "A button\n"; for my $attr ( $button->attributes ) { printf "%30s --> %s\n", $attr->name, $attr->getValue; } } __DATA__ TEST Create