Mail::Internet could help you.

Looks like you would use it like:

open MAIL, 'MyMailFile' or die "Couldn't open mail file: $!";
my $Mail = Mail::Internet->new(MAIL);

my $Body = $Mail->body();

print if /matching filename/ for @$Body;
[download]

Russ