Select Code to Download

%}={
          '6' => '1',
...
          '7' => '1',
          '2' => '3'
        };

$; $. $= $, to 3 1 6 2

sub e {
    my ( $s, $w, $x, $y, $z, $c ) = (
...
          1 ^ 1, rand, $= + 1;
        $- + 1 ^ 1;
    }

 
) =~ m$.{\$a{\$a{\$a{\$=}}}}$g;

=~m/.{3}/g

sprintf q|%s%s%s|,$x,q|e|,$y

0741171151160320971101111161041011140320801011141080321040970991071011
+14044