@s=(0)x79;@c=split'',q< !_@,#.$%^&*()-+={[}]|\:;"'<>?/>;for(;;){for($d=1
;$d<$#s;$d++){$s[$d]+=((($s[$d-1]+$s[$d]+$s[$d+1])/3)-$s[$d])*.1+((rand)
-.5)}print+map($c[$_%(scalar@c)],@s),$/}
--
Kevin Reid: | Macintosh:
"I'm me." | Think different.
==== Want to unsubscribe from Fun With Perl?
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org