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

##</code><code>##

start
end

##</code><code>##

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

##</code><code>##

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