#!/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);