sub rot13 {
    my $text = shift;
    $text = tr/A-Za-z/N-ZA-Mn-za-m/;
    return $text;
}