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