my $line;
while($line = <PAGE>)
{
    if ($line =~ /pond.*\((\w+)\)/)
    {        print "$1\n";
     }
}
close(PAGE);