http://www.perlmonks.org?node_id=580211


in reply to rand / srand

From perlfaq4 - Why aren't my random numbers random?

If you want numbers that are more random than rand with srand provides,
you should also check out the Math::TrulyRandom module from CPAN.


(($_="Mzz ojjdloobnf jt uvy5502383")=~y~b-zg2-5c96-81~a-z0-9~s)=~s~~~s; print