@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),s/^/,$"@m.\n\n@m,$"@z.\n\u@j/until@j=/s/?(take,one,down,an.d,pass,it,around):(go,to,the,store,an.d,buy,some,more),/^99/m;print$&.$'.$`