#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

#insert sequence
my $seq = 'AATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAACGAA';

#find codons
while ($seq =~ m/ATG(.*)(TAG|TAA|TGA)/g){

#print codons
                print $1, "\n";
                }