sub ::{ ; my \$i=\$^; ; [split /#/, join \$`, map {\$i^=\$_} split//,pop @_ ] } ##```## %_ = map { my \$z = ((\$_|=\$^O)?\$_:::(\$_)); \$_, sub { while (pop) { my \$x = unpack 'V',\$_ ; push @| , (\$x > \$_ ? \$x : \$_ ) } print for @| } } 1..1024; ; ##``````## sub _ { +(@;=>@:) = map {[split//]} @_; for (1..9) { push @: , join \$&, map { shift @\$_} @; } @: } ##``````## join ' ', @{[_(qw(oepgnf rhnuar nfarqr gu))]}[2,\$?,3,\$|,@;,5] ##``````## (\$;,\$:,\$,,\$\,\$^,\$==>\$~,\$.,\$})= ##``````## map{sub { my \$i=\$!; join \$&, map {my \$o = \$i; \$i = \$_; \$o^\$_; } split //,shift }; y;a-z;n-za-m;;\$_; } @\$_ ##``````## ([q"Ia Sbivrg ", "rf lbh", "Rhffvn, \$: \$~" ], ["Ayy lbhe \$~", " ner orybat gb hf", "rq \$:" ], ["\$; ornh", "rq \$:", "jhys pyhfgre bs \$~" ], ["\$|. We".'v'."gr \$~","\$/3. Pebsvg", "r".qq-q-.' '.\$:.".\$/\$=. ???" ], ["Tur arkg "."\$: \$~"=>"ef \$} vg"." rneyl",q"vba jvyy ".'or'.qq' \$^ fbba, ohg \$.\$,' ] ) ##``````## @%= map { my \$die =\$_; sub { print for join \$', @\$die[ \$%,\$==>\$|] } } ##``````## \$%[rand @%]->(); ```