sub z{$_[13]^=' ';ucfirst("@_\n");}print z(map{(split//,
   'joker panel search truth'
)[$_]}map{ord(uc($_)^'@')}split//,
'@ulseghavqcdkfiojrwnpbmtx');