$u=q{M``````````#@1<['"3E?]!TDB@C1*"*B("&10?A*$?%]%8D8PI>*B.B;1!01 }. q{MHEA$1$$9'(<0A1PB^A(``````````/!\)X@<)WUG@"A(011%)4@#1%\)OB\8 }. q{<7QG@^480?<'XQ@!!4((HBDI0``B^]$21D[XT````};$j=unpack("u",$u); for(0..938){print vec($j,$_,1)?"8":" ";print"\n"unless(($_+1)%67)}
This was based on an overly large JAPH by Paul Fortescue, which you can see on comp.lang.perl.misc as message <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk>