when (/^!help$/) { print qx{ grep -o 'when \(/[^\$/]*' "$0" | grep -o '!.*' | tr '\n' ',' }; }
when (/^!ping$/) { print "PONG"; }
when (/^!whoami$/) { print "You are: $ENV{ANSW_FROM}"; }
when (/^!help$/) { print qx{ grep -o 'when \(/[^\$/]*' "$0" | grep -o '!.*' | tr '\n' ',' }; }
when (/^!ping$/) { print "PONG"; }
when (/^!whoami$/) { print "You are: $ENV{ANSW_FROM}"; }