Select Code to Download

$J=qw,34+40;117;79+36;(116);32;,;

...

print (&$e(&$s($_)))for(split(/;/,$J));
print "\n";#-re out at all;-)

    $t=sub {
                         s      q     r     t
...
            &$s(&$t_(shift()))
    }

    $t=sub {
        $t_="sqrt $_[0]";
        &$s( $t_ )
    }

      $t=sub { sqrt $_[0]; } # &$s merely evaluates the string

    $e=sub{
                          c      h     r
...
            &$s(&$t_(shift()));
    };

    $e=sub { chr($_[0] ) };

for ( split(/;/,$J) ) {
    print ($&e(&$s($_));
}

@J =( 74,117,115,116,32,97,110,111,116,104,101,114,32,112,101,114,108,
+32,104,97,99,107,101,114);
for ( @J ) { 
    print chr( $_ );
}
print "\n";