my $prog = <<'PERSEVEROUS';
@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/s@m,v@z._/;s/s/\utakevonevdownvandvpassvitvaround,v@m.__/;"$'\ugovtovthevstorevandvbuyvsomevmore,v@m.";
PERSEVEROUS
s//lc $prog x99/ee;y/_v/
 /;print