#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

my @json_tests = (
    '',
    'crap',
    '[]',
    '{}',
    "  []",
    "\t[]",
    "\x{feff}[]",
    qq<\x{feff}\t{"k":"v"}>,
);

for my $test (@json_tests) {
    _json_chars($test);
    my $clean_json = clean_json($test);
    _json_chars($clean_json);
    say '-' x 40;
}

sub clean_json {
    my ($json) = @_;

    return '' unless length $json;

    state $re = qr{(?x:
        ^
        (
            (?: \x{feff}| )
        )
        (
            [\x{20}\x{09}\x{0a}\x{0d}]*
            (?: false|null|true|\[|\{|" )
            .*
        )
    )};

    if ($json =~ $re) {
        my ($bom, $text) = ($1, $2);

        if ($bom eq '') {
            say "JSON good as is.";
        }
        else {
            $json = $text;
            say "JSON cleaned -- BOM removed.";
        }
    }
    else {
        say 'Invalid JSON! Nothing cleaned.';
    }

    return $json;
}

sub _json_chars {
    my ($json) = @_;

    if (! length $json) {
        say 'Zero-length JSON';
    }
    else {
        say 'JSON chars: ',
            join '-', map sprintf('%x', ord), split //, $json;
    }

    return;
}