use strict;
use warnings;
use POSIX qw(mktime);

for (<DATA>) {
  my ($C, $Y, $M, $D, $h, $m, $s) = unpack "A1 A2 A2 A2 A2 A2 A2";
  my $epoch = mktime($s, $m, $h, $D, $M-1, $Y+100*$C);
  print scalar localtime $epoch;
  print $/;
}
__DATA__
1130508154533613