#!/usr/bin/perl

#use DateTime;
use strict;
use warnings;

my $LOGFILE = 'parsechunk.data';
local $/ = "\nrn:";
my $x=0;
open(my $LOGFH,"<",$LOGFILE) or die("Couldn't open '$LOGFILE:$!");
while(<$LOGFH>) {
   #chomp;
   print $_, "==RECORD END++\n";
   my $id_count = () = m/(id-info:)/og;
   print  " Found $id_count ID's in last chunk\n";
}
close $LOGFH;