#        1         2         3         4         5         6
#234567890123456789012345678901234567890123456789012345678901
mx;s//$"@m.\n\n@m,$"@z.\n\u@_,/until/^(?=99)/m/split@m=(@z=($
m+=1,bottle."s"x@+,of,beer),on,the,wall),@+?take7one7down7and.@
m.pass7it7around:go7to7the7store7and7buy7some7more;print$',$`

mx;s/^/,$"@l.\n\n@l,$"@m.\n\u@_/,/s/until/^99.*/sm/split@l=(@
m=(++$n,bottle.$&,of,beer),on,the,wall),@+?take7one7down7and.@
l.pass7it7around:go7to7the7store7and7buy7some7more;print$&.$`