I have no idea what you want - what would be considered a "match"? When asking a question, please be as specific as possible and for example in this case: what would be intended result be? - I have no idea. It is also better if you have tried some code yourself. Perl is great at this codon stuff, but what you've presented here is like a UFO sighting from 7 years ago.