my $flag=0;
for($i=0; $i<$glob; $i++){
    $_ = @text[$i];
    if(/Email address:/){
        print $_;
    }
    elsif(/Message-Id:/ and !$flag++){
        print $_;
    }    
}