open(D,"/usr/share/dict/words");@D=<D>;
$x=$D[int,rand()*$#D];$y=$D[int(rand()*
$#D)];$x=~s/'s\n$|s\n$|\n$//;$x.="s";$y
=~s/'s\n$|s\n$//;print"that $x my $y";#

##</code><code>##

split/\n/,`cat /usr/share/dict/words`;$a
=$_[rand$#_];$a=~s/s$|$/s/;$b=$_[rand$#_
];$b=~s/s\n$//;print"that $a my $b";####

##</code><code>##

split/\n/,`cat /usr/share/dict/words`;print
"that ".$_[rand$#_]."'s my ".$_[rand$#_];##