I was inspired by the perlpacktut tutorial... So here goes:

@f=split//,"hackdevelopjoy";
print@f[(unpack'%B*',pack('A')).(unpack'%B*',pack('A')),
        (unpack'C',pack('x')).(unpack'%B*',pack('A')),
        (unpack'%B*',pack('A')).unpack('C',pack('x')),
        (unpack'C',pack('x')).unpack'C',pack('x')];
[download]