Select Code to Download

#/usr/bin/perl -w
use strict;
...
  length$_[0]==8 && grep{$_=0}@_;
}
print"\n";

$_[$_]=0 for 0..7;my$i;
for my$a(grep{s@^00@@}
...
  length$_[0]==8 && grep{$_=0}@_;
}  
print"\n";

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

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

sub{split//,'0'x6;$;--;
for (grep{s@^00@@}
...
  length$_[0]==8 && print pack'B8',$_ for@_;
  length$_[0]==8 && grep{$_=0}@_;
}print"\n"}->()

sub{split//,'0'x6;$;--;
for (grep{s@^00@@}
...
    length==8 && (print(pack'B8',$_) and ($_=0))
  }
}print"\n"}->()

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

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