#!/usr/bin/env perl -l

use strict;
use warnings;

use JSON;
use Time::Piece;

my $json_file = 'json.txt';
my $wanted_minute = 40;

open my $json_fh, '<', $json_file or die "Can't read '$json_file': $!";

{
    local $/ = "}\n";

    while (<$json_fh>) {
        s/\n[+]?//gm;

        my $data = decode_json $_;

        for (@{$data->{aaData}}) {
            print "@$_" if is_wanted_time(@$_[0,1]);
        }
    }
}

close $json_fh;

sub is_wanted_time {
    for (@_) {
        my $t = gmtime $_;
        return 1 if $t->min == $wanted_minute;
    }

    return 0;
}