Balls! Pt 4

[teamster_jr]

part 4 of an occasional series: (1,2,3)

          $_='map($     
       ..=pack("C",--$        
      _),@_=unpack"C*",            q^pqfo!g   
     -#?p/cnq#<qsjou!g!qb      dl#b3W:y31Dy4D2   
    127#-CN-29429-1-2189-5    1-251-241-63539:-      
    1-29311-366-279<%v>qbd   l#y29311#<%q>5+bubo3  
    )2-2*<gps)1//31111*|%s  >%`+%q02911<nbq!|%i>fy 
    q))%s,%`0:*0:*0:<%y>)2  0)%i,20%i**+dpt%s<%z>)
     20)%i,20%i**+tjo%s<w   fd)%v-jou)81+)2,%y,%z* 
      ,251+)21,jou)26,91    +%i++30)2,%i++3*,51+)%    
        z.%y****-9*>)%q      03,%s*&)3+%q*?%q@3;2  
           ~1//26~qs          jou!g%v^),eval$.'   
                               ;s#\s##g;eval

this generates a file called o.bmp, and shares some code with 3, but hopefully i've fixed the problems people were having (ie wrapping). if anyone has any problems please let me know and i'll try and fix it!
enjoy.
alex

<Reveal this spoiler or all in this thread>

Update I've added a deconstruction as a reply

[teamster_jr]

commented and cleaned up code is in the spoiler:
<Reveal this spoiler or all in this thread>