use strict;
use warnings;

use Data::Dumper;
use utf8;
use JSON;

$/ = undef;
open my $fh, '<:encoding(UTF-8)', 'publicextract.charity.json' or die $!;
my $data = <$fh>;
close $fh;

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

my $json = decode_json $data;  #  <-- Wide character in subroutine entry at json.pl line 15.

foreach my $j(@$json) {
    print "$j->{'charity_contact_phone'},$j->{'charity_contact_email'}\n";
}

print "\nComplete!\n\n";