use warnings; use strict;
use List::Util"shuffle";@,=unpack"U*","Just another Perl hacker,
,,,,,,";for$,(shuffle+(0..4)x4){2**$,&$_ or$,[uc]+=$,[2**$,+abs]
-=($,[lc]*=2)/2for 0..31}print pack"C26",map-$_>>10,@,,,,,,,,,,,