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