#!/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"
-- arneb@emergency:~ > perl -MO=Deparse -e "(0);" 2> /dev/null '???'; arneb@emergency:~ >
In reply to Playing with bytes by NearO
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |