Balls! Pt 4 (pm)

           $_='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  

see this for more info

Balls! Pt 3 (pm)

         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   

Balls! Pt 2 (pm)

A VT100 animation - similar to Pt 1, but with generated data, rather than encoded

          $_=q`$_='     
       @8GCI';@a=/./g;        
      $j=9;$k=9;$w=25;$            c=35;$e=   
     8;$u=2;$v=1;{$k+=$v*      =$k<6|$k>16?-1:   
    1;$j+=$u*=$j<9|$j>60?-    1:1;my(%l,$m,$n);      
    for$y(0..22){for(0..70   ){$r=($_-$j)/1.6;$s=  
    $y-$k;$d=(($_-$c)**2+(  $y-$f)**2+(($w-$r**2-$ 
    s**2)**.5-$e)**2)**.5;  if($r**2+$s**2<$w){$m=
     $d<$m||!$m?$d:$m;$n=   $d>$n?$d:$m;$l{$y}{$_} 
      =$d;}}}print"\ec";    for$y(0..22){print$_>6    
        9?$/:(($d=$l{$y      }{$_})?$a[($d-$m)*5/  
           $n]:$")fo          r(0..70)}select$q,  
                               $q,$q,.1;redo}`; 
                                 s#\s##g;eval 

Balls! (pm)

          $_=q%$_="                     88GGCI";
       @a=/./g;@_=('IP              ""YI','IjjjjI',   
      'IiciII')   ;whil            e($c=pop@   a){ma     
     p{$_=$c.$_    .$c}@_         ;@_=(($t=(    $n=$a[  
    $#a]||"@").$    {c}x(-       2+length$_[0]).$n),@_,
    $t)}$_='j8_4xj4,@@8b,x       j2,@14bxjd@16bxd@18bx@
    20x@20x@20xY@18PxjY@16       Pxj`Y@14Pxj4`@10Pxj8"5 
    x';s#(.)(\d*)#$1x($2||       1)#eg;$m=2;$n=-1;$|=1; 
     $p=9;$q=20;{$q+=$n*=         $q<11|$q>50?-1:1;$p+
      =$m*=$p<8|$p>16?-1           :1;$u=-$q*6/($l=($ 
        q**2+$p**2)**.5             );$v=-2-$p*6/$l; 
           $r=$p-6;$                   s=$q-9;$y=0 
                          ;select$x      
                       ,$x,$x,.2*print  
                      "\ec*",(m   ap{$l
                     =0;"\e[".$    r++."; 
                    ${s}H",$y++<$v?$_:do{@ 
                    c=split//,$_[$y-$v-1];
                    map{$l++>$u&/@/&&($t=$ 
                    c[$l-$u-2])?$t:$_}/./g 
                     },$/}splitjx),"\e[30 
                      H";redo}%;s#\s##g; 
                        s#j#$"#g;eval