eval lc pack u,'source-string'

##</code><code>##

eval lc pack(u,'source-string')x99

##</code><code>##

print eval lc pack(u,'source-string')x99

##</code><code>##

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

##</code><code>##

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

##</code><code>##

eval lc pack u,''                [17]
print eval lc pack(u,'')x99      [27]
#23456789012345678901234567

##</code><code>##

my $source = <<'PERSEVEROUS';
my@j=/s/?(take,one,down,$m,pass,it,around):(go,to,the,store,$
m=an.d,buy,some,more);@m=(@z=(++$n,bottle.$&,of,beer),on,the,
gall^v16);s/^/,$"@m.\n\n@m,$"@z.\n\u@j/;/\n+/;;$'.$`;
PERSEVEROUS
my $out = unpack 'u', uc($source);
open my $fh, '>', 'b.pl' or die "error: open b.pl: $!";
binmode $fh;
print $fh "print eval lc pack(u,q&" . $out . "&)x99";

##</code><code>##

@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/s@m,v@z._/;s/s/\utakevonevdownvandvpassvitvaround,v@m.__/;"$'\ugovtovthevstorevandvbuyvsomevmore,v@m.";

##</code><code>##

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

##</code><code>##

eval lc pack u,''                        [17]
print eval lc pack(u,'')x99              [27]
s//lc pack(u,'')x99/ee;y/v_/ N/;print    [37] (N represents newline)
#234567890123456789012345678901234567

##</code><code>##

@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.";

##</code><code>##

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

##</code><code>##

eval lc pack u,''                          [17]
s//lc pack(u,'')x99/ee;y/v_/ N/;print      [37]
s//lc pack(u,'')x99/ee;y/]-`/TGN /;print   [40]
#234567890123456789012345678901234567890

##</code><code>##

eval lc pack u,'source-string'

##</code><code>##

s/^/,$"@m.\n\n@m,$"@z.\n\u@_/,/s/until/99/*split@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),/\n+/?take7one7down7and7pass7it7around:go7to7the7store7and7buy7some7more;print$'.$`
# or
s/^/,$"@m.\n\n@m,$"@z.\n\u@_/until/99/*split@m=(@z=(++$n,bottle."s"x/\n+/,of,beer),on,the,wall),$&?take7one7down7and7pass7it7around:go7to7the7store7and7buy7some7more;print$'.$`

##</code><code>##

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

##</code><code>##

#        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$&.$`

##</code><code>##

#        1         2         3         4         5         6
#234567890123456789012345678901234567890123456789012345678901
m/s/,@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),s/^/$"@m.\n
m@m,$"@z.\n\u@j,/while@j=!s/m//?(go,to,the,store,an.d,buy,so.
me,more):(take,one,down,an.d,pass,it,around),$n^99;print$'.$`

##</code><code>##

my $source = <<'PERSEVEROUS';
m/s/,@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),s/^/$"@m.\n
m@m,$"@z.\n\u@j,/while@j=!s/m//?(go,to,the,store,an.d,buy,so.
me,more):(take,one,down,an.d,pass,it,around),$n^99;print$'.$`
PERSEVEROUS
my $out = unpack 'u', uc($source);
open my $fh, '>', 'b.pl' or die "error: open b.pl: $!";
binmode $fh;
print $fh "eval lc pack u,'" . $out . "'";

##</code><code>##

#        1         2         3         4         5         6
#234567890123456789012345678901234567890123456789012345678901
m/s/,@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),s/^/$"@m.\n
m@m,$"@z.\n\u@_,/until/99/*split+"l",s/m//?takeloneldownland.
lpasslitlaround:goltolthelstorelandlbuylsomelmore;;print$'.$`

m/s/,@m=(@z=($".++$n,bottle.$&,of,beer),on,the,wall),s/^/,@m.
m@m,@z.\n\u@_/until/99/*split+"l",s/m./\n/?takeloneldownland.
lpasslitlaround:goltolthelstorelandlbuylsomelmore;;print$'.$`

m/s/,@m=(@z=(",",++$n,bottle.$&,of,beer),on,the,wall),s/^/@m.
m@m@z.\n\u@_/until/99/*split+"l",s/m../\n/?takeloneldownland.
lpasslitlaround:goltolthelstorelandlbuylsomelmore;;print$'.$`