# Bad code - left here just because $c=99;sub q{$w="bottle".(--$c?'s':'')." of beer";++$c;$q=$w.' on the wall.'}do{ &q;print"$c $q $c $w.\nTake one down, pass it around,\n".--$c." $q\n\n"}while$c # ######## # Good code, as in - it works $c=99;sub q{$c.' bottle'.($c!=1?'s':'').' of beer'}sub e{&q.' on the wall'}do {print&e,'. ',&q,".\nTake one down, pass it around,\n",e(--$c),"\n\n"}while$c