#!/usr/local/bin/perl
    use strict;
    use warnings;
    
    use HTML::Strip;
   
    main();    
    
    sub main{
       my $xml = qq{
       <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>
};
       my $hs       =  HTML::Strip->new();       
       my $text     =  $hs->parse($xml);
       print $text;
    }