@badwords = ('s@#!', 'f!@#', 'a$$)!@e'); foreach (@badwords) { ... } # like whatever