When I first read your latest post, the code looked like this:

my $jsonc = read_file ('H:\Work\perl\latest\Scripts\logs\json.txt');
local $/ = "}";

 while ($jsonc) {
    s/\n[+]?//gm;
    my $data = decode_json $jsonc;
    for (@{$data->{aaData}}) {
     #my print function
}
[download]

I wrote some more example code, dug up a few more references to help you out and started to respond. Upon doing so, I find you've changed that code to this:

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
        }
    }
}
[download]

If you make changes then clearly indicate what you've changed! See "How do I change/delete my post?".

Here's the new example code I wrote:

#!/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;
}
[download]

With this input:

$ cat json.txt
{"DisplayRecords":"12","Records":"12","sColumns":"startTime,endTime,
remoteNode,srcIP,srcPort,destIP,destPort,egress,ingress","aaData":[["1
+375976271"
,"1375976430","LAN","D0:05:FE","172.20.30.2",1093,"172.20.28.2",1330,"
+1034,348"]]}
{"DisplayRecords":"12","Records":"12","sColumns":"startTime,endTime,
remoteNode,srcIP,srcPort,destIP,destPort,egress,ingress","aaData":[["1
+375976271"
,"1375976430","LAN","D0:05:FE","172.20.30.2",1093,"172.20.28.2",1330,"
+1034,348"]]}
[download]

Here's the output (it's the same as from the last example, i.e. pm_epoch_from_json_2.pl):

$ pm_epoch_from_json_3.pl
1375976271 1375976430 LAN D0:05:FE 172.20.30.2 1093 172.20.28.2 1330 1
+034,348
1375976271 1375976430 LAN D0:05:FE 172.20.30.2 1093 172.20.28.2 1330 1
+034,348
[download]

Here's some more references:

• For __DATA__ (which you asked about): perldata: Scalar value constructors (Special Literals section).
• For <filehandle> (which you don't seem to know about): perlop: I/O Operators.
• I've used the builtin open function here. I don't know why you've used the CPAN module File::Read — it seems unnecessary here.
• And, just for completeness, here's the close documentation.