use strict;
use warnings;
use 5.010;

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