my $ct = $part->contentType || 'text/plain';
$ct eq 'text/plain' || $ct eq 'text/html' or next;
..some code