#!/usr/bin/env perl6

sub rot13($line) {
    return $line.trans('a..m' => 'n..z', 'n..z' => 'a..m')
}

for $*IN.lines() {
   say rot13($_);
}