my @channels = split / /, '#perl #math #rpi #perlmonks';
my %where;
@where{@channels} = @channels;
@banned_in = map $_ ? $_ : (), @where{@banned};