my $count = 0;
while (<IN>) {
  s/^"\d+"$/'"' . ++$count . '"'/e;
  print OUT;
}

##</code><code>##

% perl -i.bak -pe 's/^"\d+"$/q(").++$count.q(")/e' myfile