while( $_ =  <EMAIL> ) {
    if (        /^Message-Id:/
         ||     /^Content-Type:/
         ||     /^Content-Disposition:/
         ||     /^Content-Transfer/
         ||     /^X-[-\w]*:/
         ||     /^Status: RO/
         ||     /^Mime-Version:/ ) {
        next;
    }
    .
    .
    .
}

##</code><code>##

@array=qw (Message-ID:
           Content-Type:
           Content-Disposition:
           and_so_on...
);
LINE: while( $_ =  <EMAIL> ) {
    foreach $header (@array) {
        next LINE if /^$header/;
    }
    .
    .
    .
}