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

##</code><code>##

$_[$_]=0 for 0..7;my$i;
for my$a(grep{s@^00@@}
         unpack'B8'x28,
         join'',
         map{chr}
         '61312832204025636309525849183047200210040863630136021330'=~/../g
        ){
  $i=0;
  grep{$_[$i++].=$_}split//,$a;
  length$_[0]==8 && print pack'B8',$_ for@_;
  length$_[0]==8 && grep{$_=0}@_;
}  
print"\n";

##</code><code>##

sub{split//,'0'x6;my$i;
for my $a(grep{s@^00@@}
         unpack'B8'x28,
         join'',
         map{chr}
         '61312832204025636309525849183047200210040863630136021330'=~/../g
        ){
  $i=0;
  grep{$_[$i++].=$_}split//,$a;
  length$_[0]==8 && print pack'B8',$_ for@_;
  length$_[0]==8 && grep{$_=0}@_;
}print"\n"}->()

##</code><code>##

sub{split//,'0'x6;my$i;
for (grep{s@^00@@}
         unpack'B8'x28,
         join'',
         map{chr}
         '61312832204025636309525849183047200210040863630136021330'=~/../g
        ){
  $i=0;
  grep{$_[$i++].=$_}/./g;
  length$_[0]==8 && print pack'B8',$_ for@_;
  length$_[0]==8 && grep{$_=0}@_;
}print"\n"}->()

##</code><code>##

sub{split//,'0'x6;$;--;
for (grep{s@^00@@}
         unpack'B8'x28,
         join'',
         map{chr}
         '61312832204025636309525849183047200210040863630136021330'=~/../g
        ){
  map{$_[($;+=1)%=6].=$_}/./g;
  length$_[0]==8 && print pack'B8',$_ for@_;
  length$_[0]==8 && grep{$_=0}@_;
}print"\n"}->()

##</code><code>##

sub{split//,'0'x6;$;--;
for (grep{s@^00@@}
         unpack'B8'x28,
         join'',
         map{chr}
         '61312832204025636309525849183047200210040863630136021330'=~/../g
        ){
  map{$_[($;+=1)%=6].=$_}/./g;
  for (@_) {
    length==8 && (print(pack'B8',$_) and ($_=0))
  }
}print"\n"}->()

##</code><code>##

sub{split//,'0'x6;$;--;
for (grep{s@^00@@}
         unpack'B8'x28,
         join'',
         map{chr}
         '61312832204025636309525849183047200210040863630136021330'=~/../g
        ){
  map{$_[($;+=1)%=6].=$_}/./g;
  @{[/./g]}-8???:($_=-1+print pack'B8',$_)for@_
}print"\n"}->()

##</code><code>##

sub{split q,,,q;0;x6;$;--;for(grep s,^00,,,unpack'B8'x28,join'',map chr,q,61
312832204025636309525849183047200210040863630136021330,=~m,..,g){map$_[($;+=
1)%=6].=$_,m,.,g;@{[m,.,g]}-8???:($_=-1+print pack'B8',$_)for@_}print$/}->()