perl -ne'BEGIN{undef$/;$a=shift;@ARGV=q[evil2.gfx];binmode(STDOUT)}for(;defined($x=substr($_,$a,1));$a+=5){print$x}' number > out.type