Additional information. I get the message body into an array and it prints out fine doing a:
foreach $line (@body) { print "$line\n"; }
It's the taking of that array and getting the attachment out of it that is the problem.
Thanks!