Dump $body to see what it holds.

use Data::Dumper;  # put this with your other use statements

my ($receiver, $ccList, $sender, $replyTo, $subject, $body) = @_;

print Dumper $body;
[download]

If you see the offending line, then you know you need to look into where the data passed to the sub for $body is coming from and fix/remove it from there.