#!/usr/bin/perl
#FindCoding.pl
use warnings;
use strict;
use diagnostics;
my $sequence = 'AATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAACGAA';
while ($sequence =~ /(ATG.*?(?:TAG|TAA|TGA))/g){
print "$1\n";
}