in reply to grepping arrays

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}
Or you can use substitutions
s/badword1//; s/badword2//; ..etc;

Time flies like an arrow, fruit flies like banannas