sub z{$_[13]^=' ';ucfirst("@_\n");}print z(map{(split//,
   'alan eject porker thrush,'
)[$_]}map{ord(uc($_)^'@')}split//,
'fuvid@clrsemjkgpaqwbhnotx' );