В чем проблема в функции on_public дописать строчку
my $from = $event->{nick};

И в зависимости от содержимого по-разному обрабатывать?