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