Ghost-writer, you can save yourself a letter o in your regex

on $*:TEXT:/^[.!@]Whois (on|off)/Si:#: {can be:

on $*:TEXT:/^!whois o(n|ff)$/Si:#: {

then use:

if ($regml(1) = n)
if ($regml(1) = ff)