perl -v This is perl 5, version 42, subversion 0 (v5.42.0) built for x86_64-linux perl -E 'srand(80085);say(join("",map({g($_)}("3f5a64711350615c5b4f5867114c5666521f59535b604e57"=~m/../g))));sub g($num){chr(hex($num)+int(rand(31)));}' Just another Perl hacker