seek DATA, 38,0;                                                                
$_=join("",<DATA>);                                                            
$b=99;$c=$b-1;                                                                  
$b/$b;                                                                          
print "\n\n $b on the wall, $b.  Take one down, pass it around, $c on the wall."
;                                                                               
s/$b/$b-1/e;                                                                    
s/ (\$.)/$1 bottles of beer/g;                                                  
eval;__DATA__