$_ = ' $_ = y(x($;) + x($;) + x($;) + x($;)) .
            y(x($;) + x($;) + x($;) + x($;) + z(y(x($")) . y(x($")))) .
            y(x($") + x($") + x($") + x($") - x($;) + x($") - x($;) + z(y(x($;)))) .
            y(x($;) + x($;)) + x($;) + x($;) - z(z(x($")) . y(x($"))) .
            y(x($;) + x($;) + x($;) + x($;) + z(y(x($")) . y(x($")) . y(x($")) . y(x($")))) .
            y(x($")) .
            y(x($") + z(y(x($;)) . y(x($;)))) .
            y(x($") + x($") + x($") - x($;) + x($") - x($;) + x($") - x($;) + x($") - x($;) + z(y(x($;)))) .
            y(x($;) + x($;) + x($;) + x($") + z(y(x($;)))) .
            y(x($;) + x($;) + x($;) + x($;) - z(y(x($")))) .
            y(x($;) + x($;) + x($;) + x($;) + z(y(x($")) . y(x($")) . y(x($")) . y(x($")))) .
            y(x($") + x($") + x($") + x($") - x($;) + x($") - x($;)) .
            y(x($")) .
            y(x($;) + x($;) + x($;) + x($;) + z(y(x($")) . y(x($")) . y(x($")) . y(x($")))) .
            y(x($") + x($") + x($") + x($") - x($;) + x($") - x($;)) .
            y(x($") + x($") + x($") + x($") - x($;) + z(y(x($;)))) .
            y(x($")) .
            y(x($") + x($") + x($") - x($;) + x($") - x($;) + x($") - x($;) + x($") - x($;) + z(y(x($;)) . y(x($;)))) .
            y(x($") + x($") + x($") + z(y(x($;)))) .
            y(x($") + x($;) + x($;) + x($") - z(y(x($;)) . y(x($;)))) .
            y(x($") + x($") + x($") + x($") - x($;) + z(y(x($;)))) .
            y(x($;) + x($;) + x($;) + x($;) - z(y(x($")) . y(x($")))) .
            y(x($")) .
            y(x($") + x($;) + x($")) .
            y(x($") + z(z(x($;)) . y(x($;)))) .
            y(x($") + x($") + x($") - x($;) + x($") - x($;) + x($") - x($;) + z(y(x($;)) . y(x($;)))) .
            y(x($") + x($") + x($") + x($") - x($;) + z(y(x($;)))) .
            y(x($") + x($;) + x($;) + x($") - z(y(x($;)) . y(x($;)))) .
            y(x($") + x($") + x($") + x($") - x($;) + z(y(x($;)))) .
            y(x($;) + x($;) + x($;) + x($;) + z(y(x($")) . y(x($")))) .
            y(x($;) + x($;) + x($;) + x($;) - z(y(x($")) . y(x($")) . y(x($")))) .
            y(x($;) + x($;) + x($;) + x($;) - z(y(x($")))) .
            y(x($;) + x($;) + x($;) + x($;) + z(y(x($")) . y(x($")))) .
            y(x($") + x($") + x($") + x($") - x($;) + z(y(x($;)))) .
            y(x($") + x($") - x($;) + x($") - x($;) + x($") - x($;) + z(y(x($;)) . y(x($")))) .
            y(x($") + x($;) + x($")) .
            y(x($") + z(y(x($;)) . y(x($;)))) .
            y(x($") - x($;) + x($") - x($;) + z(y($") . y($;))) .
            y(x($") + z(y(x($;)) . y(x($;))));
        eval;';

s/x/ord/g;
s/y/chr/g;
s/z/length/g;
eval;

##</code><code>##

s/x/ord/g;
s/y/chr/g;
s/z/length/g;

##</code><code>##

$_ = ' $_ = chr(ord($;) + ord($;) + ord($;) + ord($;)) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) + length(chr(ord($")) . chr(ord($")))) .
            chr(ord($") + ord($") + ord($") + ord($") - ord($;) + ord($") - ord($;) + length(chr(ord($;)))) .
            chr(ord($;) + ord($;)) + ord($;) + ord($;) - length(length(ord($")) . chr(ord($"))) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) + length(chr(ord($")) . chr(ord($")) . chr(ord($")) . chr(ord($")))) .
            chr(ord($")) .
            chr(ord($") + length(chr(ord($;)) . chr(ord($;)))) .
            chr(ord($") + ord($") + ord($") - ord($;) + ord($") - ord($;) + ord($") - ord($;) + ord($") - ord($;) + length(chr(ord($;)))) .
            chr(ord($;) + ord($;) + ord($;) + ord($") + length(chr(ord($;)))) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) - length(chr(ord($")))) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) + length(chr(ord($")) . chr(ord($")) . chr(ord($")) . chr(ord($")))) .
            chr(ord($") + ord($") + ord($") + ord($") - ord($;) + ord($") - ord($;)) .
            chr(ord($")) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) + length(chr(ord($")) . chr(ord($")) . chr(ord($")) . chr(ord($")))) .
            chr(ord($") + ord($") + ord($") + ord($") - ord($;) + ord($") - ord($;)) .
            chr(ord($") + ord($") + ord($") + ord($") - ord($;) + length(chr(ord($;)))) .
            chr(ord($")) .
            chr(ord($") + ord($") + ord($") - ord($;) + ord($") - ord($;) + ord($") - ord($;) + ord($") - ord($;) + length(chr(ord($;)) . chr(ord($;)))) .
            chr(ord($") + ord($") + ord($") + length(chr(ord($;)))) .
            chr(ord($") + ord($;) + ord($;) + ord($") - length(chr(ord($;)) . chr(ord($;)))) .
            chr(ord($") + ord($") + ord($") + ord($") - ord($;) + length(chr(ord($;)))) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) - length(chr(ord($")) . chr(ord($")))) .
            chr(ord($")) .
            chr(ord($") + ord($;) + ord($")) .
            chr(ord($") + length(length(ord($;)) . chr(ord($;)))) .
            chr(ord($") + ord($") + ord($") - ord($;) + ord($") - ord($;) + ord($") - ord($;) + length(chr(ord($;)) . chr(ord($;)))) .
            chr(ord($") + ord($") + ord($") + ord($") - ord($;) + length(chr(ord($;)))) .
            chr(ord($") + ord($;) + ord($;) + ord($") - length(chr(ord($;)) . chr(ord($;)))) .
            chr(ord($") + ord($") + ord($") + ord($") - ord($;) + length(chr(ord($;)))) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) + length(chr(ord($")) . chr(ord($")))) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) - length(chr(ord($")) . chr(ord($")) . chr(ord($")))) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) - length(chr(ord($")))) .
            chr(ord($;) + ord($;) + ord($;) + ord($;) + length(chr(ord($")) . chr(ord($")))) .
            chr(ord($") + ord($") + ord($") + ord($") - ord($;) + length(chr(ord($;)))) .
            chr(ord($") + ord($") - ord($;) + ord($") - ord($;) + ord($") - ord($;) + length(chr(ord($;)) . chr(ord($")))) .
            chr(ord($") + ord($;) + ord($")) .
            chr(ord($") + length(chr(ord($;)) . chr(ord($;)))) .
            chr(ord($") - ord($;) + ord($") - ord($;) + length(chr($") . chr($;))) .
            chr(ord($") + length(chr(ord($;)) . chr(ord($;))));
        eval;';
eval;

##</code><code>##

$_ = ' $_ = chr(28 + 28 + 28 + 28) .
            chr(28 + 28 + 28 + 28 + length(chr(32) . chr(32))) .
            chr(32 + 32 + 32 + 32 - 28 + 32 - 28 + length(chr(28))) .
            chr(28 + 28 + 28 + 28 - length(length(32) . chr(32))) .
            chr(28 + 28 + 28 + 28 + length(chr(32) . chr(32) . chr(32) . chr(32))) .
            chr(32) .
            chr(32 + length(chr(28) . chr(28))) .
            chr(32 + 32 + 32 - 28 + 32 - 28 + 32 - 28 + 32 - 28 + length(chr(28))) .
            chr(28 + 28 + 28 + 32 + length(chr(28))) .
            chr(28 + 28 + 28 + 28 - length(chr(32))) .
            chr(28 + 28 + 28 + 28 + length(chr(32) . chr(32) . chr(32) . chr(32))) .
            chr(32 + 32 + 32 + 32 - 28 + 32 - 28) .
            chr(32) .
            chr(28 + 28 + 28 + 28 + length(chr(32) . chr(32) . chr(32) . chr(32))) .
            chr(32 + 32 + 32 + 32 - 28 + 32 - 28) .
            chr(32 + 32 + 32 + 32 - 28 + length(chr(28))) .
            chr(32) .
            chr(32 + 32 + 32 - 28 + 32 - 28 + 32 - 28 + 32 - 28 + length(chr(28) . chr(28))) .
            chr(32 + 32 + 32 + length(chr(28))) .
            chr(32 + 28 + 28 + 32 - length(chr(28) . chr(28))) .
            chr(32 + 32 + 32 + 32 - 28 + length(chr(28))) .
            chr(28 + 28 + 28 + 28 - length(chr(32) . chr(32))) .
            chr(32) .
            chr(32 + 28 + 32) .
            chr(32 + length(length(28) . chr(28))) .
            chr(32 + 32 + 32 - 28 + 32 - 28 + 32 - 28 + length(chr(28) . chr(28))) .
            chr(32 + 32 + 32 + 32 - 28 + length(chr(28))) .
            chr(32 + 28 + 28 + 32 - length(chr(28) . chr(28))) .
            chr(32 + 32 + 32 + 32 - 28 + length(chr(28))) .
            chr(28 + 28 + 28 + 28 + length(chr(32) . chr(32))) .
            chr(28 + 28 + 28 + 28 - length(chr(32) . chr(32) . chr(32))) .
            chr(28 + 28 + 28 + 28 - length(chr(32))) .
            chr(28 + 28 + 28 + 28 + length(chr(32) . chr(32))) .
            chr(32 + 32 + 32 + 32 - 28 + length(chr(28))) .
            chr(32 + 32 - 28 + 32 - 28 + 32 - 28 + length(chr(28) . chr(32))) .
            chr(32 + 28 + 32) .
            chr(32 + length(chr(28) . chr(28))) .
            chr(32 - 28 + 32 - 28 + length(chr($") . chr($;))) .
            chr(32 + length(chr(28) . chr(28)));
            eval;
    ';
eval;

##</code><code>##

$_ = '$_ = "print "Quoth the Raven. \"Nevermore.\""; eval'
eval;