$| = 1;
$/ = undef;
print "Reading JSON file";
open my $fh, '<:encoding(UTF-8)', '../data/publicextract.charity.json' or die "Unable to read Charity JSON File";
my $data = <$fh>;
close $fh;
print "...done\n";

$data =~ s/^\x{feff}//;  # Strip off BOM

print "Decoding JSON file";
my $js = decode_json $data;  # line 24
print "...done\n";