#!/usr/bin/perl -w
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$;;for
(@$){$;.=unpack("b8",chr($_));}while($;=~/([10]{7}
)/gx){print(chr(ord(pack("b7",$1))+32));}print"\n"