my $s = 'XXXxxxTGAxxTGAxxxxxxx';
while ($s =~ m{ (?{ print qq{trying a match at offset }, pos $s }) (?: \w\w\w)*? (TGA) }xmsg) {
  print qq{matched TGA beginning at offset $-[1]};
  }