my @attypes= qw(application/gzip application/x-tgz application/zip application/bzip2 ); my ($x, @attachment, $attachment, @attname); SNIP foreach $x (@attypes){ print "x = $x subentity =".$subentity->mime_type."\n"; if ($subentity->mime_type =~ m/$x/i){ $attachment = join "", @{$subentity->body}; push @attachment, $attachment; print $subentity->head->get('Filename')."\n"; if ($subentity->mime_type =~ m/filename="(.*)"/i){ push @attname, $1; last; } }