foreach(1..99){$b="\n$_ bottle@{[$_!=1&&s=>]} of beer";push@a,",\nTake one down, pass it round,$d@{$d=$b.' on the wall'}\n",$d.$b};print reverse@a; #### seek DATA, 38,0; $_=join("",); $b=99;$c=$b-1; $b/$b; print "\n\n $b on the wall, $b. Take one down, pass it around, $c on the wall." ; s/$b/$b-1/e; s/ (\$.)/$1 bottles of beer/g; eval;__DATA__