zeroclickinfo-goodies/lib/DDG/Goodie/Rot13.pm

package DDG::Goodie::Rot13;
# ABSTRACT: Rotate chars by 13  letters

use DDG::Goodie;

triggers start => 'rot13';

zci is_cached => 1;

handle remainder => sub {
    if ($_) {
        $_ =~ tr[a-zA-Z][n-za-mN-ZA-M]; 
        return "ROT13: $_";
    };
    return;
};

1;