# minimalist, grammatically incorrect (126 bytes)
$c=' bottles of beer';$d=' on the wall';$i=99;warn"$i$c$d,\n$i$c,\nTake one down and pass it around,\n",--$i,"$c$d\n\n"while$i

# minimalist, grammatically correct (167 bytes)
$_=' bottles of beer';$d=' on the wall';$i=99;sub f{$i-1?s/e\b/es/:s/s//;$_};warn$i.f."$d,\n$i".f.",\nTake one down and pass it around,\n",--$i||'No',f."$d\n\n"while$i