use warnings;
use strict;
use Mojo::DOM;

my $html = <<'END_HTML';
<Answer type="string">ServerName</Answer>
<Answer type="string">10.10.10.11</Answer>
<Answer type="string">Windows Server 2012</Answer>
END_HTML

# note: ->xml(1) turns on case sensitivity
my $dom = Mojo::DOM->new->xml(1)->parse($html);
my $values = $dom->find('Answer')->map('all_text');

print "Computer: $values->[0]\n";
print "IP Address: $values->[1]\n";
print "OS: $values->[2]\n";