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