open TEXT, $textfile or die "Can't Open $textfile";

my ($email, $id);
while (<TEXT>){  
    $email ||= $_ if /Email address:/;
    $id ||= $_ if /Message-Id:/;
}