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

##</code><code>##

malformed JSON string, neither tag, array, object, number, string or atom, at character offset 0 (before &quot;\x{feff}[{&quot;date_of_e...&quot;)