scalar <>; # throw away 1st line while (<>) { y/"http://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; }