New Book: Perl Hacks

[Alex Knowles]

> Fixed :)
>
>        s''openZF,"
>      >o.bmp";printZF
>     Zpack("a2V13",BM,
>    37686,0,54,40,112,11
>   2,1572865,0,37632),map
>   {chr(($_%112-55)**2+($
>   _/112-55)**2<3025?255-
>   3*(($_/112-75)**2+($_%
>    112-75)**2)**.5:0)x3
>     }0..12544';s#\s##g
>       ;s#Z# #g;eval

ah sweet.  cheers for that.

al