#/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";