Select Code to Download

eval lc pack u,'source-string'

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

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

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

print eval q!@j=/s/?(take,one,down,an.d,pass,it,around):(go,to,the,sto
+re,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

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

my $source = <<'PERSEVEROUS';
my@j=/s/?(take,one,down,$m,pass,it,around):(go,to,the,store,$
...
open my $fh, '>', 'b.pl' or die "error: open b.pl: $!";
binmode $fh;
print $fh "print eval lc pack(u,q&" . $out . "&)x99";

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

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

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

@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall);s/^/s@m,`@z._/;s/s/]ake`o
+ne`down`and`pass`it`around,`@m.__/;"$'^o`to`the`store`and`buy`some`mo
+re,`@m.";

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

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

eval lc pack u,'source-string'

s/^/,$"@m.\n\n@m,$"@z.\n\u@_/,/s/until/99/*split@m=(@z=(++$n,bottle.$&
+,of,beer),on,the,wall),/\n+/?take7one7down7and7pass7it7around:go7to7t
+he7store7and7buy7some7more;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:go7to7t
+he7store7and7buy7some7more;print$'.$`

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

#        1         2         3         4         5         6
#234567890123456789012345678901234567890123456789012345678901
...
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$&.$`

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

my $source = <<'PERSEVEROUS';
m/s/,@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),s/^/$"@m.\n
...
open my $fh, '>', 'b.pl' or die "error: open b.pl: $!";
binmode $fh;
print $fh "eval lc pack u,'" . $out . "'";

#        1         2         3         4         5         6
#234567890123456789012345678901234567890123456789012345678901
...
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$'.$`