$_ = '=]=>%-{<-|}<&|`{';
tr/!-\//a-o/;
 tr/:-@/p-v/;
 tr/[-^/w-z/;
 tr/`/~/;
 tr/{/"/;
 tr/|/ /;
 tr/}/-/;
print;