$o=" more";$b=" bottles of beer";$w=" on the wall";$_="99$b$w, 99$b.\nTake one down and pass it around, 98$b$w.\n\n";for$i(1..97){print;s/(\d+)/$1-1/ge}$a=$_;s/s([^s]+)\Z/$1/m;print;$_=$a;s/es/e/;s/es/e/;s/1/no$o/;s/2/1/g;print;print"No$o$b$w, no$o$b.\nGo to the store and buy some$o. 99$b$w."