#!perl -ln for$r(!//..4){$_=join 0,map{unpack b7,substr'\x7f\x08: \x7f\x7f\x00\x00\x00\x00\x7f\x08\x08\x08\x00\x7f\x088\x08\x00\x7f\x08: \x00',$_*5+$r}(0)x(~-$'/5),$'%5;y/01/ */;print}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).