$seq='GTGGCAAATGCAGAACGTTTTCTGCGTGTTGCCGATATTCTGG..........GGAGTT'; 

$a = 'ATG';
$b = '(TAA|TAG|TGA)';
while($seq =~ /($a(.*?)$b)/g) { 
	print $1."\n\n\n";
}