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