Humm, ACTG, I sense genetic analysis is the reason for writing this code. Whenever I see someone trying to do such things, I want to point out the existence of BioPerl. Head on over to the main BioPerl site to get modules, instruction, and information that should help.