--
rn: uid:<user>, <irrelevant-text>
id-info: <URL> | <ID> | <random-string>
creation-time: 1366069064
--
rn: uid:<user>, <irrelevant-text>
id-info: <URL> | <ID> | <random-string>
id-info: <URL> | <ID> | <random-string>
id-info: <URL> | <ID> | <random-string>
creation-time: 1366069064
--
rn: uid:<user>, <irrelevant-text>
id-info: <URL> | <ID> | <random-string>
id-info: <URL> | <ID> | <random-string>
     # random empty line in each entry with 'deletion-time'
deletion-time: 1367949064
creation-time: 1366069064
--

##</code><code>##

#!/usr/bin/perl

use DateTime;
use strict;
use warnings;

my $LOGFH = 'testdata';
my $/ = '\n';
my $x=0;
open(LOGFH) or die("Couldn't open 'er!");
while(<LOGFH>) {
   #chomp;
   print $_, "\n";
   $x++;
   last if $x == 2;
}


#   #print $_, "\n";
#   if ($_ =~ m!\|(.*)\|!){
#	$id = $1 . "|";
#        #print $id;
   }
   elsif ($_ =~ m!creationDate:\s+(\d+)!){
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($1);
	$dt = DateTime->from_epoch( epoch => $1 );
	print $dt->year;
   }
   #last;
}