#!/usr/bin/perl

$whichTD = 1;

open (FILE, "md.html");
while ($line = <FILE>) {

	if ($line =~ /<TD/i) {
		#print "The current TD is $whichTD\n";
		
		if ($whichTD==2) {
			print "This is the city\n";
			#some regular expression to save $city
			print $line;
		}
		if ($whichTD==3) {
			print "This is the state\n";
			print $line;
			#some regular expression to save state
			#stick that in a hash to count!
			
			
		}		
		$whichTD++;
		
	}
	
	if ($line =~ /<\/TR>/i) {
		$whichTD=1;
	}
}
close FILE;