sub on_msg {
	my ($conn, $event) = @_;
my $nick = $event->$nick;
my ($string) = ($event->args);
	
	if ($nick eq 'aldre-neo' && $string =~ m/\A9191/) {
		if ( $string =~ m/!say/i ) {print "hi";}
	}

	
}