#!/usr/bin/perl
use strict;
use 5.10.0;     # For autodie and regex \K
use autodie;
use File::Find;
use Time::Piece;
use Time::Seconds qw/ ONE_MINUTE /;

use constant DATE_FORMAT => '%Y%m%d%H%M%S';

my $n;

my $directory="/home/e/Doc/AutoMation";
chdir $directory;
opendir(DIR, ".") or die "couldn't open $directory: $!\n";
 
foreach my $file (readdir DIR) 
{

  next unless -f $file;
  open my $in_fh, '<',$file; 
  my @lines = $file;
  close $in_fh;

  ++$n;

        $lines[0] =~ s~/4947000219/\K(4947000210+)~$1+$n~e; 
	$lines[1] =~ s{:20140924105028\K(20140924105028+)}{
        my $tp = Time::Piece->strptime($1, DATE_FORMAT);
        ($tp + ONE_MINUTE * 2 * $n)->strftime(DATE_FORMAT);
        }e;
	   open my $out_fh, '>', $file;
  	   print $out_fh @lines;
           close $out_fh;
}
closedir DIR;