my $printing;
while(<WORDLIST>) {
   $printing = 0 if (/^end process/);
   print if ($printing);
   $printing = 1 if (/^process/);
}