#!/usr/bin/perl -w
use strict;

eval join ' ',reverse qw; //\; }split \;$_
tr/[a-mn-z]/[n-za-m]/ map{ reverse for print;
if (($_ = 'erxpnu yerc erugban gfhw') ne '');