perl -e 'print length "just another perl hacker"'
24
perl -e 'my $x = ("a".."z")[23]; print $x'
x
perl -e 'srand 42; print sort {4-rand 9} ("a".."x")'
gnkhwqpiejbaxdlcrfomtsuv
perl -e '$_ = join "", "a".."x"; y/gnkhwqpiejbaxdlcrfomtsuv/Just_another_Perl_hacker/'
rerPt_Jtohseauhnalkcer__
perl -e 'srand 42; print sort {4-rand 9} split //, rerPt_Jtohseauhnalkcer__'
Just_another_Perl_hacker