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