Select Code to Download

package Encode::ROT13;

use strict;
...

use strict;
use warnings;

use Data::Dump ; 
dd\%Encode::Encoding;
...
dog
strawberry
watermelon

$ perl fudge
{
  "ascii"        => bless(do{\(my $o = 1783919988)}, "Encode::XS"),
...
  "utf-8-strict" => bless({ Name => "utf-8-strict", strict_utf8 => 1 }
+, "Encode::utf8"),
  "utf8"         => bless({ Name => "utf8" }, "Encode::utf8"),
}