#! perl -nlw
use munge_address;
s/<font[^>]+?>//g;
s,</font>,,g;
die unless ($name,$address,$city,$state,$zip)=m,^\s+<td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td align="center">(.*?)</td><td>(.*?)<,;
$name =~ s/\s+$//;
$original=$address;
$address=&munge_address::munge_address($address);
print "$address, $city, $state $zip" ;
#print $address;
print STDERR "$original = $address" if ($original ne $address);
#/^[0-9 A-Z]*\.?$/