$seq = 'TGTGTGTGTGTG';;
@tests = qw[ TX TXXX ];;
for my $test ( @tests ) {
    ( my $re = $test ) =~ tr[X][.];
    print "'$1'" while $seq =~ m[(?=($re))]g;
};;
'TG'
'TG'
'TG'
'TG'
'TG'
'TG'
'TGTG'
'TGTG'
'TGTG'
'TGTG'
'TGTG'