parse-gb-data.pl

use strict;
use mySociety::GeoUtil qw/national_grid_to_wgs84/;

while (<>) {
	my @x=split(/,/); # split csv
	my ($pc, $east, $north) = ($x[0], $x[10], $x[11]);
	$pc=~s/\"//g; # remove quotes around postcode
	my ($lat, $lng) = national_grid_to_wgs84($east, $north, "G"); # "G" means Great Britain
	print "$pc,$lat,$lng\n";
}