Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;

...
#flamers
#lusers
#litterbugs
  2. or download this
    my $channels = "#gross_people #skriptk1dd13\$ #trolls";
my %banned;
@banned{split " ", $channels} = (1);
...
        IRC::print "match: $_";
    }
}