perl -e 'srand (42); $zzahl = rand(); print $zzahl, "\n"'

perl -e 'srand (Perl_is_genious-20.09.2008-NeedHelp@perl-community.de_HZZw32jkO); $zzahl = rand(); $zzahl = substr($zzahl,0,35); print $zzahl, "\n"'

$ corelist /Digest/

Digest was first released with perl 5.007003

Digest::MD5 was first released with perl 5.007003

Digest::SHA was first released with perl 5.009003

Digest::base was first released with perl 5.008003

Digest::file was first released with perl 5.008007

$str=join('', map{int($_) eq $_?$_:ord($_)}split(', $str));