#!/usr/bin/perl -w

use strict;

##</code><code>##

my $textfile = "iwn.txt";

##</code><code>##

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

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

##</code><code>##

close TEXT;

print $email;
print $id;