Intersting if fairly simple bitstream shift. Have a look in
perlop for the Bitwise Sting Operators(~ | & ^) which can
really muddy the waters.

tachyon

Dissection:

use strict;
@$=qw(170 234 148 10 8 58 159 84 100 81 10 128 21 165 76 0 50 56 92 22
+ 165 12);
undef$;;                        # nice obfu var $SUBSEP
for(@$){
    $;.=unpack("b8",chr($_));   # convert dec into bit stream
}
while($;=~/([01]{7})/gx){       # grab seven bits => $1
    # this line converts the 7 bits to ASCII char, then uses ord, 
    # adds 32, back to ASCII with chr and prints it
    print(chr(ord(pack("b7",$1))|32));
}
print"\n";
[download]