my $line =~ s/, City of/c City of/g;
  my $line =~ s/, County of/c County of/g;

  if ( $line =~
       m/^([^,]+),([^,]+),[\d|\.]+,[\d|\.]+,[\d|\.]+,[\d|\.]+,,[\d|\.]+,[\d|\.]+,[\d|\.]+,[\d|\.]+,,[\d|\.]+,[\d|\.]+,[\d|\.]+,[\d|\.]+/
     )
    {
      my $line =~ s/c City of/, City of/g;
      my $line =~ s/c County of/, County of/g;