$var =~ s[\bt(?!est).*?t\b\s*][]g;

##</code><code>##

perl> $var = "thought testament test tot 1 2 3 tesset";
perl> $var =~ s[\bt(?!est\b).*?t\b\s*][]g; print $var;
test 1 2 3