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