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