#!/usr/bin/perl
sub p{printf@_}for(;p"%08x  ",$b;p"|\n"){print"|",grep{p"%02x ",$_=rand 256;$_=chr;y/ -~/./c;++$b%8||p" "}c..r}


#111