#!/usr/bin/perl -w
use strict;

open FH, 'pub71.html';
binmode FH;
$\ = "<BR>";
while (<FH>) {
   next if $_ =~ /\,/;
   next if $_ =~ /^[a-z]/;
   if ( m/(.+)\s(\d{1,2}\.\d{2})%\s(.+)\s*<BR>/ ) {
        print "City:$1\tCounty:$3\tTax$2\n";
        }
   }
close FH;