Elizen

use Chatbot::Eliza;

$eliza = new Chatbot::Eliza;
$alize = new Chatbot::Eliza;

$response = "I am a sad little monkey.";

while (1) {
  $response = $eliza->transform($response);
  print "Eliza: $response\n";

  $response = $alize->transform($response);
  print "Alize: $response\n";
}

Eliza: Can you explain what made you sad?
Alize: You're not really talking about me -- are you?
Eliza: Does it please you to believe I am not really talking about you -- are me?
Alize: You like to think I -- are you -- don't you?
Eliza: Oh, I?
Alize: Why do you say you?
Eliza: We were discussing you -- not me.
Alize: Does someone else believe I -- not you?
Eliza: Oh, I?
Alize: You say you?
Eliza: You're not really talking about me -- are you?
Alize: Perhaps you would like to be not really talking about you -- are me.
Eliza: You like to think I -- are you -- don't you?
Alize: We were discussing you -- not me.
Eliza: You like to think I -- not you -- don't you?
Alize: You're not really talking about me -- are you?
Eliza: What makes you think I am not really talking about you -- are me?
...