To close this topic ...

I have taken the "Don't worry, be happy" advise above. Actually, I have realized that I was already taking it in the following code fragment.

foreach my $part ($MIMEhandle->subparts)
  {
  if( $part->content_type =~ m/text\/plain/i ) {return $part->body;};
  };
[download]