local $_;
while(<WORDLIST>)
{   last if /process/;
}
while(<WORDLIST>)
{   print;
    last if /end process/;
}