c:\@Work\Perl\monks>perl -wMstrict -le
"my @data = (
   q{<Answer type='string'>ServerName</Answer>},
   q{<Answer type='string'>10.10.10.11</Answer>},
   q{<Answer type='string'>Windows Server 2012</Answer>},
   );
 ;;
 for my $datum (@data) {
   $datum =~ s{ \A .*? (?<= >) ([^<]*) .* }{$1}xms;
   print qq{'$datum'};
   }
"
'ServerName'
'10.10.10.11'
'Windows Server 2012'