$ perl -Mstrict -Mwarnings -E '
    my $dna = q{atctcggataatgggataaaaatataggctataaatggcgccccggctaattttt};

    if ($dna =~ /atg(.+?)(?:taa|tag|tga)/) {
        say $1;
    }
'
gga