sub on_public 
{

   my ($conn, $event) = @_;
   my $nick = $event->{nick};

   . . .
   elsif ($text =~ m/slaps Wizard/i)
   {
      $conn->privmsg($conn->{channel}, "Hey, don't slap me!");
   }

   . . .
}