DB<1> $string = '<Answer type="string">ServerName.FD.net.org</Answer>';

  DB<2> @fields = split /[<>]/, $string;

  DB<3> x @fields;      # displaying the content of the @fields array after the split
0  ''
1  'Answer type="string"'
2  'ServerName.FD.net.org'
3  '/Answer'
  DB<4> print $fields[2];   # outputting the server name
ServerName.FD.net.org

##</code><code>##

  DB<1> $string = '<Answer type="string">ServerName.FD.net.org</Answer>';

  DB<2> $name = (split /[<>]/, $string)[2];

  DB<3> print $name;
ServerName.FD.net.org