--Apple-Mail-30--196590585
Content-Disposition: inline;
	filename=moriyama1.gif
Content-Transfer-Encoding: base64
Content-Type: application/applefile;
	name="moriyama1.gif"

AAUWBwACAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAMgAAAAoAAAADAAAAPAAAAA1HSUZmcHJ2
dwEAbW9yaXlhbWExLmdpZg==

--Apple-Mail-30--196590585
Content-Disposition: inline;
	filename=moriyama1.gif
Content-Transfer-Encoding: base64
Content-Type: image/gif;
	x-mac-creator=70727677;
	x-unix-mode=0644;
	x-mac-type=47494666;
	name="moriyama1.gif"

R0lGODlhZABnALMAAPDv79LR0FJQT66trJGQjykoJ9zb2m9ubebl5aCfnbu5uMfFxIKBfwEBAQIC
AgAAACH5BAA [etc...]  

--Apple-Mail-30--196590585--
##</code><code>##

foreach my $part (@parts) {
		next unless defined $part->head;
		my $head_string = $part->head->as_string;
		next unless $head_string =~ m!text/plain|alternative|image|octet|gif!i;
		my $body_string = $part->bodyhandle->as_string;
		
		my @part = ($head_string, $body_string);
		
		push(@text, \@part) 	if $head_string =~ m!text/plain|alternative!i;
		push(@images, \@part) 	if $head_string =~ m!image|octet|gif!i;
		
	}
	$thing->{'images'} 	= \@images;
	$thing->{'text'} 	= \@text;
	return($thing);
}