Select Code to Download

while( $_ =  <EMAIL> ) {
    if (        /^Message-Id:/
...
    .
    .
}

@array=qw (Message-ID:
           Content-Type:
...
    .
    .
}