Select Code to Download

use strict;
use warnings;
my $filename = 'input.txt';
...
while($text =~ m/TATAAT[ACGT]+?(ATG[ACGT]+?(?:TGA|TAG|TAA))/g) {
   print "$1\n";
}