http://www.perlmonks.org?node_id=907242


in reply to Re: Drunk on golf: 99 Bottles of Beer
in thread Drunk on golf: 99 Bottles of Beer

In the middle of the night it occurred to me that a further stroke can be shaved by changing the terminating regex from /, 99.*\n\n/ to /, 99\D+/, producing the following 161 stroker:

/s/until@c=(@b=(++$n,bottle.$&,of,beer),on,the,wall),s/^/Take one down + and pass it around, @c. @c, @b. /,/, 99\D+/;print$'."Go to the store and buy some more$&"
The same trick can be applied to Ruby also.