use strict;
use warnings; no warnings 'uninitialized';

use XML::Rules;

my $parser = XML::Rules->new(
	stripspaces => 7,
	rules => {
		sep => '== ', # same as  sub { return ' ' }
		key => sub {return " <b>$_[1]->{_content}</b> "},
		FIELD => 'content by NAME',
		HIT => 'pass',
	},
);

my $data = $parser->parse(\*DATA);

use Data::Dumper;
print Dumper($data);


__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>