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