Select Code to Download

use strict; use warnings; 

...
$dna3=substr($dna3,$after,1).$dna4.substr($dna3,$after+1); 
print $dna3."\n";