#!perl -nla for$c(0..4){@o=map{$p=unpack b7;$p=~y/01/ */;$p}(qw/\x00 \x08 8 : \x7f/," ")[map{substr"4000041110412104135041354",$_,1}(map{5*$_-5+$c}(map{5}1..$F[0]/5),$F[0]%5?$F[0]%5:())];print"@o"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).