Select Code to Download

#!/usr/bin/perl -w

use strict;

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

my ($email, $id);
...
    $email ||= $_ if /Email address:/;
    $id ||= $_ if /Message-Id:/;
}

close TEXT;

print $email;
print $id;