Many belated thanks for the help on this. I was very short of time so in the end the simplest solution was this:

    while (<$messageHandle>)
    {
        chomp;
        $body .= $_;
    }
[download]