open (, $filein); while () { if (/^---- Email 1/ ... /---- Email2/) { open (, ">$fileout"); print MYOUTPUT $_; close (MYOUTPUT); } } close (MYDATA);