#!/usr/bin/perl

$nBottles = abs(shift || 100);

$p_sub = sub { 'Take ' . (shift == 1 ? 'it' : 'one') .
                " down, pass it around,\n" };
$b_sub = sub { 'bottle' . (shift != 1 ? 's' : '') };
$c_sub = sub { $_ = shift||'No'; "$_ " . &$b_sub($_) . ' of beer' };
$w_sub = sub { &$c_sub(shift) . " on the wall"; };
$sub   = sub { $_ = shift; print &$w_sub($_), ",\n", &$c_sub($_),
               ",\n", &$p_sub($_), &$w_sub(--$_), ".\n\n" };

map(&$sub($_), reverse(1 .. $nBottles));
print "burp!\n";
[download]

$nBottles = ($ARGV[0] > 0) ? $ARGV[0] :100;
foreach (reverse(1 .. $nBottles)) {
$s = ($_ == (1 || 2)) ? "" : "s";       
print "\n$_ bottle$s of beer on the wall,\n$_ bottle$s of beer,\nTake 
+one down, pass it around,\n" , ($_ - 1)," bottle",(($_ - 1) == 1) ? "
+ " : "s "," of beer on the wall\n";
   }
   print "\n*burp*\n";
[download]

$nBottles = ($ARGV[0] > 0) ? $ARGV[0] :100;
foreach (reverse(1 .. $nBottles)) {
print "\n$_ bottle",($_ == (1 || 2)) ? "" : "s"," of beer on the wall,
+\n$_ bottle",($_ == (1 || 2)) ? "" : "s"," of beer,\nTake one down, p
+ass it around,\n" , ($_ - 1)," bottle",(($_ - 1) == 1) ? " " : "s ","
+ of beer on the wall\n";}print "\n*burp*\n";
[download]

$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

Have a look at this thread on clpm.

--
John.

Or even 99 bottles, 2 lines.

-Blake