http://www.perlmonks.org?node_id=382211

#With this new program, message board trolls become a thing of the pas +t! #Watch them seethe as they come closer and closer to a ban. #Install the troll removal program today! #Satisfaction guaranteed*! #*not a guarantee #!/loser/bin/perl use strict; use warnings; #use Extreme::Violence; open(DISCUSSION, "mod.board") or die "Can't open discussions about tro +ll. Admins already decided.\n"; foreach my $offence(my @website) { do { warn(my $troll); } until my $banned eq "true"; } close(DISCUSSION); exit;