##

#!/usr/bin/perl
#
use strict;
use warnings;
use threads;

use XML::LibXML;

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file("file.xml");

foreach my $title ($doc->findnodes('//maintainedButton')) {
  my $button = $title->findvalue('@name');
  $button =~ s/\n/ /;
  my $state = $title->findvalue('/states/state[@stateId ="0"]/@stateId');
  print "$button\t$state\n"; 
}