sub print_whois_chans_or_oper {
  my(@line) = split(" ",$_[0]);
  if ($_[0] eq " $line[0] is an IRC Operator") {
    IRC::print(" [\002i\002rcop\002:\002 $line[0] is an IRCop\n");
    soundplay("ohmy.wav") if $sounds; # Play if user wants sounds
  }
  else {
    IRC::print(" [\002c\002hannels\002:\002 @line[1..$#line]\n");
  }
  return 1;
}