my @protein = map $matcher->($_), $dna =~ /.../g;