use XML::Twig;

my $data;
{
	undef $/;
	$data = <DATA>;
}

my $XML = XML::Twig->new;
$XML->parse($data);
print $XML->root->children_text;

__DATA__
<HIT>
  <FIELD NAME="body">
  <sep />
  Self-Archiving E-mail Messages in
  <key>Outlook</key>
  The following e-mail self-archiving
  <sep />
  create an Archive folder/.pst file. See
  <key>Outlook</key>
  2003 .pst file Management for instruction
  <sep />
  your messages. Select your
  <key>Files</key>
  (This refers to your primary...
  <sep />
  </FIELD>
</HIT>