#!/usr/bin/perl -w
use strict;
use warnings;
use feature qw(say);

use constant GENETIC_CODE => {
    TCA => 'S', # Serine
    TCC => 'S', # Serine
    TCG => 'S', # Serine
    TCT => 'S', # Serine
    TTC => 'F', # Phenylalanine
    TTT => 'F', # Phenylalanine
    TTA => 'L', # Leucine
    TTG => 'L', # Leucine
    TAC => 'Y', # Tyrosine
    TAT => 'Y', # Tyrosine
    TAA => '_', # exit
    TAG => '_', # exit
    TGC => 'C', # Cysteine
    TGT => 'C', # Cysteine
    TGA => '_', # exit
    TGG => 'W', # Tryptophan
    CTA => 'L', # Leucine
    CTC => 'L', # Leucine
    CTG => 'L', # Leucine
    CTT => 'L', # Leucine
    GTT => 'V', # Valine
    GTC => 'V', # Valine
    GTA => 'V', # Valine
    GTG => 'V', # Valine
    GCT => 'A', # Alanine
    GCC => 'A', # Alanine
    GCA => 'A', # Alanine
    GCG => 'A', # Alanine
    GAT => 'D', # Aspartic Acid
    GAC => 'D', # Aspartic Acid
    GAA => 'E', # Glutamate
    GAG => 'E', # Glutamate
    GGT => 'G', # Glycine
    GGC => 'G', # Glycine
    GGA => 'G', # Glycine
    GGG => 'G', # Glycine
    CCA => 'P', # Phenylalanine
    CCC => 'P', # Phenylalanine
    CCG => 'P', # Phenylalanine
    CCT => 'P', # Phenylalanine
    CAC => 'H', # Histidine
    CAT => 'H', # Histidine
    CAA => 'Q', # Glutamine
    CAG => 'Q', # Glutamine
    CGA => 'R', # Arginine
    CGC => 'R', # Arginine
    CGG => 'R', # Arginine
    CGT => 'R', # Arginine
    ATA => 'I', # Isoleucine
    ATC => 'I', # Isoleucine
    ATT => 'I', # Isoleucine
    ATG => 'M', # Methionine
    ACA => 'T', # Threonine
    ACC => 'T', # Threonine
    ACG => 'T', # Threonine
    ACT => 'T', # Threonine
    AAC => 'N', # Asparagine
    AAT => 'N', # Asparagine
    AAA => 'K', # Lysine
    AAG => 'K', # Lysine
    AGC => 'S', # Serine
    AGT => 'S', # Serine
    AGA => 'R', # Arginine
    AGG => 'R', # Arginine
};

my $s = 'AGCCATGTAGCTAACTCAGGTTACATGGGGATGACCCCGCGACTTGGATTAGAGTCTCTTTTGGAATAAGCCTGAATGATCCGAGTAGCATCTCAG';

for ($s =~ /ATG (?:[ACGT]{3})*? (?: TAA | TAG | TGA )/gx) {
    my @codons = /[ACGT]{3}/g;
    say join '', map GENETIC_CODE->{$_}, @codons;
}