#!/usr/bin/perl

while (<>)
{
	if (/<tr><td><a\Whref="#"\WonClick="javascript:openMarker\(\d*,parseFloat\('([^']*)'\),parseFloat\('([^']*)'\)\);">(<img\Wsrc=([^ ]*)[^>]*>)?<\/a><\/td><td><a\Whref="#"\WonClick="javascript:openMarker\(\d*,parseFloat\('\1'\),parseFloat\('\2'\)\);">([^<]*)<\/a><font size=1>([^<]*)<\/font>,\W<font[^>]*>([^<]*)<\/font><br><font\Wsize=2>([^<]*)<\/font><\/td><\/tr>/)
	{
		my ($long, $lat, $img, $name, $address) = ($1, $2, $4, $5, $6);
		print "$lat $long \"$name\"\n";
	}
}