join("Take one down and pass it around",map{@c=(@b=(99-$_,bottle.'s'x!/98/,of,beer),on,the,wall);", @c.

@c, @b.
"}0..98)=~/

/;print$'."Go to the store and buy some more$`"