$lines[0] =~ s~/4947000219/\K(4947000210+)~$1+$n~e;