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