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