#!  /usr/bin/perl

$innode=0;
$aplace=0;
$gotname=0;
while (<STDIN>) {
        if (m,^\s*<node\s+.*\s*lat="([0-9.]+)"\s+.*\s*lon="([0-9.]+)".*[^/]>\s*$,) {
                $innode = 1;
                $lat=$1;
                $lon=$2;
        }
        if (m,</node>,) {
                if ($innode && $aplace && $gotname ) {
                        print "($name\t($lon, $lat))\n";
                }
                $innode = $aplace = $gotname = 0;
        }
        if (m,<tag\s+[^>]*\s*k="place",) {
                if (m,<tag\s+[^>]*\s+v="(city|town|farm|village|isolated_dwelling|suburb|hamlet)",) {
                        $aplace = 1;
                }
        }
        if (m,<tag\s+[^>]*\s*k="name",) {
                if (m,<tag\s[^>]*\sv="([^"]+)",) {
                        $name = $1;
                        $gotname=1;
                }
        }
}