perl -pi.bak -e '$begin++ || s/^/>/' dna.txt