$e="\x00\x00\x00\x09\xE7\x92\x09\x24\x92\x09\x24\x92\x09\xE7\x9E\x49\x24\x12\x79\x24\x12\x00\x00\x00";
foreach(split//,unpack("B192",$e)){print $_ == 1?"*":".";$c++;if ($c==24){print $/; $c=0;}}