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