c:\@Work\Perl\monks\undergradguy>perl extract_dna_seq_1.pl
sequence 'GATTACA'

captured 5 sequences: 'A' 'ATCG' 'a' 'AATCCGCTGATT' 'act'

captured 2 codon sequences: 'AATCCGCTGATT' 'act'