sub on_msg {
	my ($conn, $event) = @_;

my $string=($event->{args}[0])
	
if (
	($event->{nick} eq 'aldre-neo') and $string =~ m/^9191/i)){
		if ( $string =~ m/!say/i ) {print "hi";}
	}

	
}