#!/usr/bin/perl -w
# Copyright 2000 by Tomasz Wegrzanowski <maniek@beer.com>
# Licensed under GPL 2

open OUT,'|sort|uniq -d';

while (<>) {
  $line = $_;
  next unless ( $line =~ /^cities\s*=/ );
  $line =~ s/^cities\s*=\s*//;
LOOP:
  if ( $line =~ /^\s*$/ ) { $line = <>; $line =~ s/^\s*//; }
  if ( $line =~ /^"(.*?)"/ ) {
      print OUT $1,"\n";
      $line =~ s/".*?"\s*//;
      if ( $line =~ /\s*,\s*/ ) {
            $line =~ s/\s*,\s*//;
            goto LOOP;
      }
  }
}

close OUT;
