#
# $Author$
# $Version$
#

use locale;

while(<>)
{

# if (/^City\d+=/)
# {
#   ($a, $c) = split /=/;
#   $c = uc(substr($c, 0, 1)) . lc(substr($c, 1));
#   printf "$a=%s", $c;
#   next;
# }

 print;
  next if not /\[POLYGON\]/i; # and not /\[POI.*\]/i;

  chop;

  while(<>)
  {
   print, last if /\[END\]/i;
    print, next if not /^Label=/i;
    ($l, $t) = split /=/;
    chop $t;
    print, next if not $t =~ /(.+),\s*(.+)$/i;
    printf "Label=$2\n";
    print  "HouseNumber=$2\n";
    print  "StreetDesc=$1\n";
  }
}

# $Id$

