#!perl -pa
y/^ZA-z/[A-za/for($_=<>)x"@F";y/!?/?!/