Perl beginner seeks help

hello, I am a, well, not a beginner per say, but rather still a
learner of Perl. I guess you could call me a beginner. anyway, I need
some help with my robot. it is not really Perl help, but you guys
could help with the code, too. I am making a talking robot like
A.L.I.C.E., a robot designed by a guy named Richard s. Wallace, and I
am having trouble deciding what to make him know. he knows basic
stuff, and the coding is somewhat fine, but I was wondering if you
guys could help me out here. he knows how to respond to his and
hellos, also more interesting stuff like his birthday and to
understand when you say something like 'I feel like crap' or
something, but he is still kinda dumb. any advice on how to improve
him with knowledge would be appreciated.


P.S. the code for what to say and what to say it to is regular
expressions. tell me if you have a better method.
e.g.    elsif($reply =~ /\bwhat\b/ and $reply =~ /\btime\b/){
	print"I surely dont know the time.";
talk();
}
talk is the subroutine that asks for input.