Select Code to Download

my $var = "thought test tot 1 2 3 tesset";

test 1 2 3

$var =~ s/((t.*?t)([\w ]*test[\w ]*)(t.*?t))/$3/g;

test tot 1 2 3

$var =~ s/(t.*?t) but not (test)//g;