foreach my $line (@lines) {

                        $line = $_;

##</code><code>##

$line[0] =~ s~/4947000219/\K(4947000210+)~$1+$n~e;
$line[1] =~ s{:20140924105028\K(\d+)}{

##</code><code>##

use strict;