$newstring =~ s/([+<-/)*>])HELL([+<-/)*>])/$1BAD$2/g;