Help for this page

Select Code to Download

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

Select or download this

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