Obfuscation 101 would dicate that you would remove $e, inserting the literal string in its place. Also, in the interest of preventing clarity, you should nuke any and all stray spaces, and condense instructions in a GOLF-ish fit of glee.

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

I'm sure you can find more improvements, if you look.