use strict;
use warnings;
use 5.010;

my $str = 'aaaBBBcccTGA';
while ($str =~ /(?:\w\w\w)*?(TGA)/g) {
    say $1;
    say pos $str;
}