bad with pronouns, but i'm too tired to fix it up better... (162 - CRLF only to be web-friendly)

$a=shift;@b=(" bottles of beer"," on the wall,$/",
"$/Take one down, pass it around,");
do{print$a,@b[0,1],$a,@b[0,2];print$/,--$a,@b[0,1],$/}
while$a;print"*burp*";
[download]

~Particle