It prints <q>justMndptherMperlMfnsMer</q> here.

I had to look up what the third argument to seek does, but I think I see how it's supposed to work. Looks to me like the problem is that you made an assumption about the number of bytes in an end-of-line sequence. You can't do that, if you want it to be portable.

for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc'
.'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$
p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}
[download]