#!/usr/bin/perl -p
BEGIN { @a = split //, "/-35753=?=357"x2; }
s.([a-zA-Z]).ord $1<97?uc($1^$a[ord($1)-65]):lc($1^$a[ord($1)-97]).ge;