our $data = <DATA>;

##</code><code>##

our $data = join "", <DATA>;

##</code><code>##

BEGIN {
our %rot = (
  'A' => 'N','B' => 'O','C' => 'P','D' => 'Q','E' => 'R','F' => 'S',
  'G' => 'T','H' => 'U','I' => 'V','J' => 'W','K' => 'X','L' => 'Y',
  'M' => 'Z','N' => 'A','O' => 'B','P' => 'C','Q' => 'D','R' => 'E',
  'S' => 'F','T' => 'G','U' => 'H','V' => 'I','W' => 'J','X' => 'K',
  'Y' => 'L','Z' => 'M','a' => 'n','b' => 'o','c' => 'p','d' => 'q',
  'e' => 'r','f' => 's','g' => 't','h' => 'u','i' => 'v','j' => 'w',
  'k' => 'x','l' => 'y','m' => 'z','n' => 'a','o' => 'b','p' => 'c',
  'q' => 'd','r' => 'e','s' => 'f','t' => 'g','u' => 'h','v' => 'i',
  'w' => 'j','x' => 'k','y' => 'l','z' => 'm',
);

my $substs = join "\n", map { "    s/$_/$rot{$_}/g;" } keys %rot;

eval <<SUB;
sub rot13s {
    local \$_ = shift;
    $substs;
    return \$_;
}
SUB

}

##</code><code>##

          Rate  table  s///g     tr
table    448/s     --   -78%  -100%
s///g   2026/s   352%     --   -98%
tr    106383/s 23654%  5152%     --