print FILE "$when|$to|$from|$subject|$body\n";

##</code><code>##

my $encoded_body = pack ("u", $body);
$encoded_body=~s/\n//g;
print FILE "$when|$to|$from|$subject|$encoded_body\n";

##</code><code>##

Fri Dec 15 15:34:10 2000|to@net.net|from@net.net|Hello|E5&AI<R!I><R!T:&4@><V%M><&QE(&UE><W-A9V4A#0H-"D)Y92X-"@`` 
>
##</code><code>##

$decoded_body = unpack ("u", $encoded_body);

##</code><code>##

This is the sample message!

Bye.