$sndrNme =~ s/\&lt;/\</ig;
    $rcvrNme =~ s/\&lt;/\</ig;
    $subject =~ s/\&lt;/\</ig;
    $ccrcNme =~ s/\&lt;/\</ig;

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