%}={ '6' => '1', '1' => '2', '3' => '6', '7' => '1', '2' => '3' }; ##```## \$; \$. \$= \$, to 3 1 6 2 ##``````## sub e { my ( \$s, \$w, \$x, \$y, \$z, \$c ) = ( ( join '', map { chr } 6 * 6 * 3 + 6 + 1, 6 * 6 * 3 + 6 + 1 - 3, 6 * \$= * 3 + 6 + 1 - 3 + 2, 6 * 6 * 3 - 3, \$= * 6 * 3 - 3 + 3 + 2, 6 * 6 * 3 + \$, * 3 + 2, 6 * 6 * 3 - 6, 6 * 6 - 2 - 2, 6 * 6 * 3 + 6 - 1, 2**( 6 + 1 ) - 3 - 1, 6 * 6 + 1, 6 * 6 * 3 + 6 + 1, 6 * 6 + 1, 6 * 6 * 3 + 6 + 1, 6 * 6 + 1, 6 * 6 * 3 + 6 + 1, 2**( 6 + 1 ) - 3 - 1, 6 * 6 + 2**3, 6 * 6, 6 * 6 * 3 + 2 * 3 + 2 * 3, 6 * 6 + 2**3, 6 * 6 * 3 + 6 - 1, 2**( 6 + 1 ) - 3 - 1, 6 * 6 * 3 - 3 - 2 - 2, 2**( 6 + 1 ) - 3 - 1, 6 * 6 + 2**3, 6 * 6, \$= * 6 * 3 + 2 * 3 + 2 * 3 + 1 ), @_ ); \$s =~ s/(.+)/\$1/ee; 0 + \$s; } print chr for( join '', do { 1 ^ 1 }, do { \$- = e \$;+ 1, \$= + \$., 3 + \$., \$= + 1, 2; \$- += e 1 ^ 1, \$; + \$., 3, \$= + \$,, \$= + 2; \$- += e 1 ^ 1, 1, \$,, \$= * \$; + \$, * 2, 6 + \$;; \$- += e rand, 6 * \$, + \$= - \$., 1 ^ 1, 1 ^ 1, 2 + 6 * 2 - 1; \$-; }, do { \$- = e rand, 1, 3 + \$., 3 + 6 * 2, 6 * 3 - 3; \$- += e 1 ^ 1, 1, 3, 6 * 3 * 6 + 1, 3 + \$.; \$- += e 1 ^ 1, \$= - \$., \$,, \$= - 1, 3 * 6 * 3 + 3; \$- += e rand, 1, 1, 3, 6 + 6 * 3 - 1; \$- += e 1 ^ 1, 1, 1 ^ 1, \$,; \$-; }, do { 2 * 6 * 3 * 2 - 6 * 2; }, do { \$- = e 1 ^ 1, 6**3 + 6**2 * 3 - 2**2, \$,, 2 + 1 + 6 * 3; \$- += e rand, 6**2 - 3 + 3**( 2 * 2 ) - 3 * 3 * 2 + 1, 1 ^ 1, 1 ^ 1, 1 ^ 1; \$-; }, do { \$- = e 1 ^ 1, 1, 3, \$=, \$,; \$- += 2**6 + 6**2 + 3 - 2; \$-; }, do { 2 + 2**6 + 6**2 + 3**2; }, do { 1; }, do { 6; }, do { \$- = e 6 * 6 - 2, -1 + 3**( 2 * 2 ) + 3 * 6 + 6, 3, \$= * \$, + \$= - \$., 3**2**2 + 6; \$- += 6 * 3 + 2 + 3**2**2; \$-; }, do { \$- = e 1 ^ 1, 6**3 - 3**( 2 * 2 ) - 2**( 2 * 2 ) - 3 * 2 + 1, 2, 2**6 + 1, 3 * 3 * 3 + 2 * 2 * 2; \$- += 3; \$-; }, do { 6 * 3 * 6 * 3 * 6 - 6**( 2 * 2 ) + 1 + 3**6 + 6 * 2 * 6 - 3 * 3 * 2 + 6 * 6 * 3 * 6; }, do { -6 + 6 * 6 * 3 - 1; }, do { \$- = e 6 + 3 + 2, 2 + 3 + 6, 3, 2 + 6 + 3, 3 + 6 + 2; \$- += e rand, 6 * 6 + 3 + 2, 1, 6 + 3, 2**6 - 2**3 * 2**2; \$-; }, do { \$- = e rand, 0 - 6 + 6**3 * ( 2 * 2 ) + 1 - 2 - 3**3 * 2, 1; \$- += \$,; \$-; }, do { \$- = e \$,, -2 * 2 + 3 * 3 * 2 * 3 * 2, 2, 2**( 2 * 2 ) * 6 - 2**( 2 * 2 ), -( 2 * 2 ) - 2**( 2 * 2 ) + 6 * 2**( 2 * 2 ); \$- += 6 + 3; \$-; }, do { \$- = e 3, 3 * 3 * 6 + 2**( 2 * 2 ), \$= - \$., 2 + 3 * 1 * 2 * 3 + 2 * 3, 3; \$- += e 1 + 3**( 2 * 2 ) + 2**( 2 * 2 ) + 1, 2**6 - 1 + 2 * 3 * 3 + 6 * 3, 3, 2 * 6 * 6 + 6 * 2 + 1, -6 + 2 * 6 + 2 * 6 * 6 + 1; \$- += e 1, 1, \$,, 6 * 6 - 1, \$= + \$.; \$- += e 6 + 1, \$= + \$., 1 ^ 1, 2**( 3 + 2 ) + 6 * 3 - 1, 6 * 3 + 2 * 3; \$-; }, do { -6 * 2 - 1 + 2**3**2 * 2; }, do { \$- = e 1 ^ 1, 1, 3 + 1, -1 + 2 * 3**3 - 1, 2 * 3 * 2; \$- += e 6 * 6 + 2 + 2, 2 + 2 + 6 * 6, \$,, 1 + 2 * 3 * 2, 3 * 6 + 2; \$- += e 6 * 2 + 6 - 1, 6 * 6 + 6 + 2, 1 ^ 1, rand, \$= + 1; \$- + 1 ^ 1; } ##``````## ) =~ m\$.{\\$a{\\$a{\\$a{\\$=}}}}\$g; ##``````## =~m/.{3}/g ##``````## sprintf q|%s%s%s|,\$x,q|e|,\$y ##``````## 074117115116032097110111116104101114032080101114108032104097099107101114044 ```