[Chicago-talk] advanceing through a file w/o using an array

[Dooley, Michael]

ok, I haven't looked at perl in well pretty much forever.

#! /usr/bin/perl -w

$FILE='path_to_mail_file';

open (MAILFILE, "$FILE") || die "Can not read file ($!)";

while (<MAILFILE>) {
        chomp;
        if ($_ =~ /^From / || /^Subject: /) {
                print "$_\n";
        }
}


ok this is all I have so far. which is pretty easy in the first place.
the part I am working on is getting the body of the email and displaying
that.

the body comes after "Message-Id: " and ends on the line befor "^From ".

Is there a variable I can use to print the line after a match untill another
match is found?

kinda like 
if ($_ =~ /Message-Id: /) {
                print the next line until $_= "^From "
        }