$__to =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__cc =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__bcc =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__from =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__subject =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__html_message =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__text_message =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__importance =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__xpriority =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $__x_ms_priority =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;
    $_mail_Message =~ s/(\r\n|\n\r|\r|\n)/\r\n/sg;

##</code><code>##

s{ \n\r | \r | \n }{\r\n}gx for
    $__to,
    $__cc,
    $__bcc,
    $__from,
    $__subject,
    $__html_message,
    $__text_message,
    $__importance,
    $__xpriority,
    $__x_ms_priority,
    $_mail_Message;