Perl 5, 158
@c=(@b=(++$n,bottle.'s'x@-,of,beer),on,the,wall),s//Take one down and pass it around, @c.
@c, @b.
/until/99\D+/;say$_."Go to the store and buy some more, $&"
Based on the solution from eyepopslikeamosquito found here.
LukStorms
- 1.8k
- 1
- 12
- 11