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