#!/usr/bin/perl
# A Program to check and count a variety of things.  The program
# mostly deals with in_class and the text/tongue/feet text files.
# In other words, this program will count the number of birds and
# places.  See which ones have text for description, feet, and tongues.
# It will write out to a file the ones who don't have the descriptions.
# For places, it will also tell which ones have google maps.
#
{
	while ( <STDIN> ) {
		s,<i>.*</i>,,;
#		s,</p>,,;
#		s,<p>,,;
		s,<.*>,,;
		s/Garretson//;
		s/Emeryville//;
		s/Lobos//;
		s/Toro//;
		s/Ross's//;
		s/Ross//;
		s/Anhinga's//;
		s/Anhinga//;
		s/Anhingas//;
		s/Yellowlegs//;
		s/Yellowleg//;
		s/Attwater//;
		s/Caracaras//;
		s/Caracara//;
		s/Goldeneyes//g;
		s/Gular//g;
		s/Jugulum//g;
		s/rufous//g;
		s/buffy//g;
		s/polychaeteworm//;
		s/Bellevue//;
		s/molluscs//;
		s/Doran//;
		s/Oystercatchers//;
		s/Monterey//;
		s/Brazoria//;
		s/Buffleheads//;
		s/Bufflehead//;
		s/Colusa//;
		s/Gadwall//;
		s/Milpitas//;
		s/Livermore//;
		s/nesters//;
		s/Eastshore//;
		s/Scaup//g;
		s/Gridley//;
		s/Winton//;
		s/avocets//;
		s/Avocets//;
		s/avocet//;
		s/Seco//g;
		s/Sandhill//;
		s/Wikipedia//;
		s/Goldeneye//;
		s/online//;
		s/NWR//;
		s/birdwatch//;
		s/Soras//;
		s/Siskin//;
		s/Sora//;
		s/stifftail//;
		s/oke'o//;
		s/alae ke//;
		s/Pardee//;
		s/Edgewater//;
		s/Merlins//;
		s/Neotropic//;
		s/Pintails//g;
		s/Pintail//g;
		s/spatulated//;
		s/nestless//;
		s/Shovelers//;
		s/Shoveler//;
		s/Busan//;
		s/Willets//;
		s/Willet//;
		s/Shimada//;
		s/Sherburne//;
		s/Scoters//g;
		s/Scoter//g;
		s/Tricolored//;
		s/Titmouses//;
		s/orangish//;
		s/manu-o-Ku//;
		s/Leandro//;
		s/Moraga//;
		s/Turnstone//g;
		s/Oystercatcher//;
		s/decurved//;
		s/Dowitchers//g;
		s/Dowitcher//g;
		s/upcurved//;
		s/Godwits//;
		s/Godwit//;
		s/Phalaropes//;
		s/Phalarope//;
		s/Sanderlings//;
		s/Sanderling//;
		s/Dunlin//;
		s/semipalmated//;
		s/Semipalmated//;
		s/Whimbrels//;
		s/Whimbrel//;
		s/Surfbirds//;
		s/upwellings//;
		s/Rufous//;
		s/throated//;
		s/Bewick's//;
		s/supercilium//;
		s/Gnatcatcher//;
		s/Garin//;
		s/Bushtits//;
		s/Gambel's//;
		s/Baja//;
		s/Chukar//g;
		s/Baja//;
		s/Murre//;
		s/alcid//;
		s/Waxbills//;
		s/Waxbill//;
		s/Yellowthroat//;
		s/Eclectus//;
		s/Sumba//;
		s/Glaucous//;
		s/Orinda//;
		s/Hyacinthine//;
		s/fledge//;
		s/Heermann's//;
		s/'ale ke 'oke 'o//;
		s/Alae//;
		s/Kaua'i//;
		s/O'ahu//;
		s/Al'o//;
		s/Sunol//;
		s/MacGillivray//;
		s/Nuttall's//;
		s/MacGillivray//;
		s/Bulbul//;
		s/Tilden//;
		s/Cordilleran//;
		s/zooplankton//;
		s/Junglefowl//;
		s/Auklet//;
		s/Kinglet//;
		s/Steller's//;
		s/Swainson's//;
		s/Kingbird//;
		s/Wrentit//;

		next if (/^\s*$/);
		next if (/<iframe/);
		next if (/<img/);
		print $_;
	}
}