process
I know the simple case is finding all the sub;
bdjh pond(end)cannot;
gsjad  pond: process(start);
begin;

##</code><code>##

end
process

##</code><code>##

while(<PAGE>)
{
    if (/pond/)
    {        print "$_";
     }
}
close(PAGE);