#!/usr/bin/perl -w
use strict;

my $dna = 'atctcggataatgggataaaaatataggctataaatggcgccccggctaattttt';

if ($dna =~ /atg([acgt]+)(?!(taa|tag|tga))/xms)
{
    print $1;
}