#!/usr/bin/perl
$/='}"6ft.(&^)+@<B#,/JK2=>?@7$eJp.',$"
=eval$/,@/=split//,$/.$@,$/=0;while($/
<26){$_.=$/[ord($/[++$/])-7]}print