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,@,,,,,,,,,,,
[download]

Update 2006 oct 12: I've posted a variant of this japh is at Re^2: Polynomial JAPH (golf?).