#/usr/bin/perl -w use strict; $_[$_]=0 for 0..7; my$i; for my$a(grep{s@^00@@} unpack'B8'x28, join'', map{chr} split/\*+/, q{61*31*28*32*20*40*25*63*63*9*52*58*49*18*30*47*20*2*10*4*8*63*63*1*36*2*13*30} ){ $i=0; grep{$_[$i++].=$_}split//,$a; length$_[0]==8 && print pack'B8',$_ for@_; length$_[0]==8 && grep{$_=0}@_; } print"\n";