perl -pE'BEGIN{say"you ok?";$p=" something$/"}$m=$_;s/.*i(\047m| am| was)\b/really/i;s/.*you.*/what about i/i;s/.*always.*/can i be specific/;s/[?.!,].*//;s/\b(i|me)\b/you/gi;s/\bmy/your/i;.2>rand?s/.*/huh/:s/$/?/;($_="you had said$p")if.1>rand;$p=": ".$m'
Does it run rm -rf /? I would not be surprised if it does.