#!/usr/bin/perl -w
use strict;
# $_ = "V'z abg fnlvat lbh nfxrq n ubzrjbex dhrfgvba...";
$_ = "Ohg vg'f ernyyl n irel fvzcyr gnfx...";
my %ceaser;
@ceaser{'A'..'Z','a'..'z',' ','.',"'"} = 
    ('N'..'Z','A'..'M', 'n'..'z', 'a'..'m', ' ','.',"'");
my $decoded;
$decoded .= $ceaser{$_} for split //;
print $decoded, "\n";