BEGIN { # yes the indenting is off, deal with it
#add the words to check here:
@evilwords = qw(
BEGIN { # yes the indenting is off, deal with it
#add the words to check here:
@evilwords = qw(
# at last, here we actually run the test...
my $evilwordsregexp = join('|', @evilwords);
# at last, here we actually run the test...
my $evilwordsregexp = join('|', @evilwords);