Help for this page
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;