use strict;
use warnings;

while(<DATA>) {
	print unless /(evil|bad|wrong)/i;
}

__DATA__
This string contains no blacklisted tokens.
This string is evil and wrong.