use XML::Twig; my @fails; my $parser = XML::Twig::->new(twig_roots => { '/items/client/site/servers/server/failed_checks/check/description' => sub { push @fails, $_->text }, '/items/client/site/servers/server/overdue/description' => sub { push @fails, $_->text }, })->parse_file($fail); my $report = @fails ? 1 : 0;