print "Reading JSON file";
open my $fh, '<', '../data/publicextract.charity.json' or die "Unable to read Charity JSON File";
my $data = <$fh>;
close $fh;
print "...done\n";

$data =~ s/^\357\273\277//;  # Strip off BOM