Select Code to Download

sub send_mail {
    $CONFIG{mail_format} = 2;
...

        return &send_mail_NT(@_);
    }

    my ($sndrEml, $sndrNme, $rcvrEml, $rcvrNme, $subject, $message, $c
+crcEml, 
        $ccrcNme, $attPths) = @_;

    $sndrNme =~ s/\&lt;/\</ig;
    $rcvrNme =~ s/\&lt;/\</ig;
...
    $rcvrNme =~ s/\<.*?>//ig;
    $subject =~ s/\<.*?>//ig;
    $ccrcNme =~ s/\<.*?>//ig;

sub _clean_value {
    local $_ = shift;
...
    s/\<.*?>//ig;
    $_;
}

    $sndrNme = _clean_value($sndrNme);
    $rcvrNme = _clean_value($sndrNme);
    $subject = _clean_value($subject);
    $ccrcNme = _clean_value($ccrcNme);

    ($sndrNme, $rcvrNme, $subject, $ccrcNme) = map {
        s/\&lt;/\</ig;
        s/\<.*?>//ig;
        $_;
    } ($sndrNme, $rcvrNme, $subject, $ccrcNme);

sub send_email {
    # Set up values that *all* the EMail senders will need to know
...
    my ($Eml, $Nme) = @_;
    return $Nme =~ /\w+/ ? qq~$Eml ($Nme)~ : $Eml;
}