sub z{$_[13]^=' ';ucfirst("@_\n");}print z(map{(split//,
   'corpulent jerk heat rash,'
)[$_]}map{ord(uc($_)^'@')}split//,
'jdvhiqgarofbnckleswu@mptx');