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