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