#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";