From a recent discussion at Slashdot perl -ne '{binmode STDOUT,"utf8";print chr(9585.5+rand);redo}'
Read More