for(0..98){
printf("%d bottle%s of beer on the wall, %d bottle%s of beer.\nTake one down and pass it around, ",$x=99-$_,$z=$x==1?"":"s",$x,$z);
if($z){printf("%d bottle%s of beer on the wall.\n\n",$x-1,$x==2?"":"s");} else {print("no more bottles of beer on the wall.\n\n");}
}
print("No more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more. 99 bottles of beer on the wall.");