y/A-Za-z/B-ZAb-za/for(($x,$_)=<>)x$x;y/!?/?!/;print