while($text =~ m/(TATAAT|TTGACAT)\w+[^ATG]?(ATG\w+)[^TAG|TAA|TGA]?/g)
{
$2=~tr/ATGC/UACG/;
print $2;