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;