while (<F>) {
 $theline=$_ if ( m{/Inbox/email\.EML}xms );
}