Cheesy, but it's my first attempt. Be gentle.
#!/usr/bin/perl
$;
=1;
;$_
=q;
5929494c2 d0592 94939890592 949 3c5
905929497 9490949 29492949490 1c4 c4c
59002a494 93c4d2949 2e2d019293a 392 949
594 949 297 949 094 929 192
929 495 94e 2d3 949 0e2 929
192 949 594949297d0 949293a2949 5949492979390
949 294 93c6949492e 294900d3e2d 3909492979492
909 492 d39 492 90d 397 d39
097 979 393 909 7e2 949 2e0
09494a5c3 9492 e2d 094 9392 939 4929 393 979 490e
2949297 c4d3 949 094 92e2 979 2949 7d0 949 2949
29492 9393 979 390 9492 949 3c39 492 e29 4900
;;
for(split//){$"=hex;!/0/?$">8?print"#"x($"-8):print" "x$":print"\n"}
==
Kerry
Kerry.Schwab@wnco.com