I tried to get it to look like a 'K'. It does kind of. Anyway, here it is. :)

#4a75     ##737
##420    416##
##e6f   #7468
#6572  20506
#5726 c2048
#61636b657
#2#######
open( FH,
$0)|| die
"nope  \n";
while   (<FH>)
{chomp   ;if($_
=~m/^#/  ){while
($_=~m   /([^#\s])/g
){$code  .= $1;}}}print
pack     "H48",$code;print
"\n";
[download]

Easy now, only my second attempt. :) - kel -