scalar <>; # throw away 1st line
while (<>) {
    y/"//d;
    s/\b([\d.]+)\W[WS]\b/-$1/g;
    s/\b([\d.]+)\W[NE]\b/$1/g;
    s/\s+$//g;
    s/&#(\d+);/sprintf("\\u%04x", $1)/eg;
    split "\t";
    printf qq{[ "$_[0], $_[1] [%.1fM]", $_[3], $_[4] ],\n},
	$_[2] / 1_000_000;
}