open(WORDLIST, <*.doc>);
while(<WORDLIST>)
if(/if/)
{
if(/condition 2/)
 {print "$_";
 }	
 else{}
}
open(WORDLIST);