#!/usr/bin/perl -w



use strict;


my $source = "libsource.txt";
my $dest = "library2.txt";

open(SOURCE, "$source")||die;
open(DEST, ">$dest")||die;

my @contents=<SOURCE>;


my $day;

foreach my $stamp (@contents) {

        $stamp=~/\d{9,10}/g;

      my ($sec, $min, $hour, $mday, $mon, $year_off)=localtime($&);
      $mon=$mon+1;


     if ($mday<10) {
        $day="0".$mday;
     }  else {
        ($day=$mday);
     }

     if ($mon<10) {
        $mon="0".$mon;
     }

      my $year=$year_off+1900;
      my @filedate=($mon, $day, $year);
      my $conversion=join('/',@filedate);


      $stamp =~ s|$&|$conversion|;
      }




print DEST @contents;
close (SOURCE);
close (DEST);


##</code><code>##

8897,17,0,99,8888,,0,0,1005,36405,ABCD,0,,1194116569,1000824,ABCD,Live 

Presentation CAM2,Jenifer Smith ,60:00,Ch1 & 2,0,,0,0,0,3,0,,0,Reel 

#3,NDF,TOD,,,,,,,,,,0,,0,0,0.000,0.000,,,,,0,0,0,1197399969,1197399769,0,

0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,

,,,
8898,17,0,99,8889,,0,0,1014,36406,ABCD,0,,1173207769,1000824,ABCD,Segment

s,Marcus,60:00,Ch1 & 2,0,,0,0,0,14,0,,0,Reel 

#1,DF,01:00:00:00,,,,,,,,,,0,,0,0,0.000,0.000,,,,,0,0,0,1197400130,119739

9769,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.0

00,,,,,,,,
8899,17,0,99,8890,,0,0,1023,36407,ABCD,0,,1193806800,1000665,,Buyout,,19:

00,Ch1 & 2,0,,0,0,0,2,0,,0,Reel 

1,NDF,1:00:00:00,,,,,,,,,,0,,910138,0,0.000,0.000,,,,,0,0,0,1197400324,0,

0,0,0,0,,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8900,17,0,99,8891,,0,0,1005,36408,ABCD,0,,1172413184,1000797,ppp,Skiing,M

ountain,01:00:00,Ch1 & 2,0,4070,0,0,0,25,0,,0,Reel 

#4,DF,00:00:00,,,,,,,,,,0,,910138,0,0.000,0.000,,,,,0,0,0,1197897083,1169

216384,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0

.000,,,,,,,,
8901,17,0,99,8892,,0,0,1005,36409,ABCD,0,,1198248398,1000707,ttt,National 

Meeting,ppp,1:00:00,Ch1 & 2,0,4071,0,0,0,25,0,,0,Reel 

#1,NDF,1:00:00,,,,,,,,,,0,,1000705,0,0.000,0.000,,,,,0,0,0,1198502505,109

3009598,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,

0.000,,,,,,,,
8902,17,0,99,8893,,0,0,1005,36410,ABCD,0,,1198248398,1000707,,National 

Meeting,ppp,1:00:00,Ch1 & 2,0,4072,0,0,0,25,0,,0,Reel 

#2,NDF,2:00:00,,,,,,,,,,0,,1000705,0,0.000,0.000,,,,,0,0,0,1198502514,109

3009598,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,

0.000,,,,,,,,


##</code><code>##

12/31/1969
8897,17,0,99,8888,,0,0,1005,36405,ABCD,0,,11/03/2007,1000824,ABCD,Live Presentation CAM2,Jenifer Smith ,60:00,Ch1 & 2,0,,0,0,0,3,0,,0,Reel #3,NDF,TOD,,,,,,,,,,0,,0,0,0.000,0.000,,,,,0,0,0,1197399969,1197399769,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8898,17,0,99,8889,,0,0,1014,36406,ABCD,0,,03/06/2007,1000824,ABCD,Segments,Marcus,60:00,Ch1 & 2,0,,0,0,0,14,0,,0,Reel #1,DF,01:00:00:00,,,,,,,,,,0,,0,0,0.000,0.000,,,,,0,0,0,1197400130,1197399769,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8899,17,0,99,8890,,0,0,1023,36407,ABCD,0,,10/31/2007,1000665,,Buyout,,19:00,Ch1 & 2,0,,0,0,0,2,0,,0,Reel 1,NDF,1:00:00:00,,,,,,,,,,0,,910138,0,0.000,0.000,,,,,0,0,0,1197400324,0,0,0,0,0,,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8900,17,0,99,8891,,0,0,1005,36408,ABCD,0,,02/25/2007,1000797,ppp,Skiing,Mountain,01:00:00,Ch1 & 2,0,4070,0,0,0,25,0,,0,Reel #4,DF,00:00:00,,,,,,,,,,0,,910138,0,0.000,0.000,,,,,0,0,0,1197897083,1169216384,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8901,17,0,99,8892,,0,0,1005,36409,ABCD,0,,12/21/2007,1000707,ttt,National Meeting,ppp,1:00:00,Ch1 & 2,0,4071,0,0,0,25,0,,0,Reel #1,NDF,1:00:00,,,,,,,,,,0,,1000705,0,0.000,0.000,,,,,0,0,0,1198502505,1093009598,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8902,17,0,99,8893,,0,0,1005,36410,ABCD,0,,12/21/2007,1000707,,National Meeting,ppp,1:00:00,Ch1 & 2,0,4072,0,0,0,25,0,,0,Reel #2,NDF,2:00:00,,,,,,,,,,0,,1000705,0,0.000,0.000,,,,,0,0,0,1198502514,1093009598,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,


##</code><code>##

Use of uninitialized value in localtime at DataConvert.pl line 22, 

<SOURCE> line 7.
Use of uninitialized value in regexp compilation at DataConvert.pl line 

41, <Source> line 7.