Select Code to Download

Select or download this

    ''=~(        '(?{'        .('`'        |'%')        .('['        ^
+'-')
    .('`'        |'!')        .('`'        |',')        .'"'.        '
+\\$'
...
 '.').("\`"|  '.').("\`"|  '$')."\,".(  '!'^('+')).  '\\",_,\\"'  .'!'
+.("\!"^
 '+').("\!"^  '+').'\\"'.  ('['^',').(  '`'|"\(").(  '`'|"\)").(  '`'|
+"\,").(
 '`'|('%')).  '++\\$="})'  );$:=('.')^  '~';$~='@'|  '(';$^=')'^  '[';
+$/='`';

Select or download this

'' =~ /(?{eval"\$==pop||99;--\$=;sub\n_\{(\$;=(\$=||No).\" bottle\".\"
+s\"x!!--\$=.\" of beer\").\" on the wall\"\}print+_,\", \$;!\nTake on
+e down, pass it around,\n\",_,\"!\n\n\"while++\$="})/;
$: = 'P';
$~ = 'h';
$^ = 'r';
$/ = '`';

Select or download this
```
$:=('.')^  '~';
```
Select or download this
```
$: = 'P';
```

Select or download this

'' =~ /(?{print"\$==pop||99;--\$=;sub\n_\{(\$;=(\$=||No).\" bottle\".\
+"s\"x!!--\$=.\" of beer\").\" on the wall\"\}print+_,\", \$;!\nTake o
+ne down, pass it around,\n\",_,\"!\n\n\"while++\$="})/;
$: = 'P';
$~ = 'h';
$^ = 'r';
$/ = '`';

Select or download this

$==pop||99;--$=;sub
_{($;=($=||No)." bottle"."s"x!!--$=." of beer")." on the wall"}print+_
+,", $;!
...
",_,"!

"while++$=