while(<WORDLIST>)
{
	if (/process/)	#check for process
	{
			print "$_";

        if (/end process/)
	{
	last;
	}
}}
close (WORDLIST);