for (@badwords) { $topic =~ s/$_/<censored>/g }