use strict;
use warnings;
use Time::Local;
use JSON;
use File::Read; 


my $jsonc = read_file ('H:\Work\perl\latest\Scripts\logs\json.txt');
{
    local $/ = "}\n";
    while ($jsonc) {
        s/\n[+]?//gm;
        my $data = decode_json $_;
        for (@{$data->{aaData}}) {
        #my print/parse function
        }
    }
}