#!/usr/bin/perl

$textfile = "iwn.txt";

open (TEXT, "$textfile") || die "Con't Open $textfile";


@text=<TEXT>;
close(TEXT);
$glob = @text;

for($i=0; $i<$glob; $i++){
	$_ = @text[$i];
	if(/Email address:/){

		print $_;
	}
	elsif(/Message-Id:/){
		print $_;
	}	
}