my $DNAString=join("",@DNAReadIn);
   	   $DNAString =~s/(\]\n)/,/g;

while ($DNAString =~ m{,\w{3}(\w{24})}g)