@codons = grep $_, split /(.{3})/, 'atgactaatagcagtgg'; print "@codons\n"; __END__ atg act aat agc agt gg