perl dna TGAATCTTTGACTCGA