$n=<>;$_=<>; s/[a-z]/(chr($a+(((ord$&)+$n-($a=ord$&>96?96:64))%26||26)))/egi; y/!?/?!/;print