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