Looks like your substitutions are a bit too broad. You could put a regex into your if for a simple filter.

if (/badword/i){print "You are a naughty person...You should wash your
+ mouth with soap}
[download]

Or you can use substitutions

s/badword1//;
s/badword2//;
..etc;
[download]

Time flies like an arrow, fruit flies like banannas