my $prog = <<'PERSEVEROUS';
@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/s@m,`@z._/;s/s/]ake`one`down`and`pass`it`around,`@m.__/;"$'^o`to`the`store`and`buy`some`more,`@m.";
PERSEVEROUS
s//lc $prog x99/ee;y/]-`/TG
 /;print