use JSON::Parse 'assert_valid_json';
 unless (valid_json ($json)) {
        # do something }
    eval {
        assert_valid_json ('["xyz":"b"]');
    };
    if ($@) {
        print "Your JSON was invalid: $@\n";
    }
  }