#!/usr/bin/perl 
@d=(255,60,252,195,24,195,195,195,24,255,252,255,
216,195,192,195,112,195,192,195);for($n=1;$n < 21;
$n++){$d .= ' ' . unpack("B8",pack("v",shift(@d)));
unless ($n % 4){$d =~ s/0/ /g;print "$d\n";$d = '';}}