for ( $__to, $__subject, $__content_type, ... ) {
    tr/\r\n/ /;
    s/\s+$//;
}

my %mail =
(
    "To"             => $__to,
    "Subject"         => $__subject,
    "Content-Type"     => $__content_type,
);