Select Code to Download

s,$/,,g,
eval

$|--;
print join $",
    map {
...
        }
        @_[$|--..$^F+$|]
    } -> ()

    {
        undef @bins;
        map @{[ push @{ $bins[ ord( (/.{$.}(.)/)[$|] ) ] }, $_ ]}, @_;
        @_ = map @$_, @bins;
        $.-- && redo
    }

$bins[ ord('l') ] = [ 'uhinbyl' ];
$bins[ ord('v') ] = [ 'zobxiiv' ];
$bins[ 0 ] = [ 'xqsauh', 'zozmib', 'xtbemz', 'ujwq', 'xzaf', 'ufde' ];

    map {
        y/ //d;         # delete spaces.  None of the words have any, 
+so no-op.
...
                        # $. ended up with the value -1.  Here it beco
+mes 3
        $_
    }

    map {
        $_{$_} = $a++;  # %_ hash becomes
...
        $.++;           # 4 more increments leaves $. set to 7
        $_
    }

    map {
        $_[$_{$_}] =            # $_{$_} is the hash value that was
...
              ...
            } -> ($_{$_}, $_)   # hash {$_}, $_ = (value, key) pair
    }

$_[0] = sub { ... } -> (0, 'ufde')
$_[1] = sub { ... } -> (1, 'uhinbyl')
$_[2] = sub { ... } -> (2, 'ujwq')
$_[3] = sub { ... } -> (3, 'xqsauh')

    join '',
    map {
...
       $_ += 26 while $_ < 93;
       chr
    }