Select Code to Download

my $var = "though test tot 1 2 3 tesset";
$var =~ s/(t.*?t)/($1 ne "test") ? "" : $1/ge;
print $var;  # prints: esoesset

my $var = <<TT;
target blah foo test thought 123 though tempest
...
## Result:
 blah foo test  123 though 
testament though tightest treatment thermostat tantamount taboo